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Software prizes for the creative. 


MORE ROM BUGS 


Including some fixes and new 
bugs on the scene. 


Since references to OL Super- 
Basic — The Definitive Hand- 
book by Jan Jones in Troub- 
leshooter last month, QL 
World has received a number 
of letters and calls with helpful 
information. 

The most helpful informa- 
tion came from Phil Borman of 
Quanta, who advised us that 
Quanta had already obtained 
permission from Jan Jones to 
re-publish this essential QL 
reference work, and would 
supply it for £8 plus £2 post and 
packing. The volume is also 
advertised by Sector Software 
at £8 inclusive of post and 
packing. 

Some readers twitted us with 
not noticing that the book — 
apparently irretrievably out of 
print — was being advertised by 
Sector in the same _ issue. 
Touche. In mitigation, we 
plead that we were in discus- 
sion with an eminent member 
of Quanta on the subject only 
the previous month. He was 
apparently unaware at the time 
that contact had already been 
made and negotiations were 
proceeding. 


Thanks to everybody who 
sent information or sugges- 
tions, particularly John Wat- 
son, Jan Jones’ original editor 
at McGraw-Hill. 


Thor International has found a 
new backer and has imple- 
mented a number of changes 
within the company. 

Helmut Stuven of Thor 
International and Dansoft told 
QL World that Thor Interna- 
tional I.S. —signifying a private 
partnership in Denmark — ts 
now Thor International A.S.,a 
business issuing shares. 
According to Stuven, a third 
party now holds the majority of 
shares in the company, but the 
right to design and manufac- 
ture all models of the Thor are 
retained by himself and David 
Oliver of CST. 

Although, according to both 
Stuven and Penny Oliver, 
David Oliver continues to be 
involved in the development of 
the Thor, he is not at present 
employed by Thor Internatio- 
nal and has Ieft Denmark to 
undertake contract work, 
probably in the United States. 
Said Penny Oliver in July: “We 
have run out of money and 
cannot afford to stay in 
Denmark at the moment. I 
have work to go back to in the 
States. and David may get a job 
there as well.” David Oliver is 
apparently on call to Thor 
International when the com- 
pany’s trading plans with the 
U.S.S.R. are on a firmer foot- 
ing. 

Stuven told QL World: “We 
have succecded in getting a 
written order from one of the 
five companies we are working 
with in Russia, involving 1000 
computers and_ peripherals, 
and worth about £2,000,000." 
Political changes in the 
U.S.S.R. at the beginning of 
Junc, however, have left Thor 
International waiting while an 
export certificate is produced 


THOR STRIKES OUT 


WITH CHANGES 


to allow their customers to 
export goods to the West to pay 
for the computers. 

The export licences are a 
new development in_ the 
U.S.S.R. Issue has apparently 
stopped before it started while 
the ministry concerned awaits a 
new minister. 

Restrictions on exporting 
and converting the rouble 
make a form of barter neces- 
sary in trading with the Rus- 
sians, said Stuven. 

Moves are going ahead to 
seek a licence from Unisoft in 


the U.K. to port an older 
version of Unix, in widespread 
use in the U.S.S.R., to the 
Thor 16/20, said Stuven. The 
necessary investment could be 
over £300,000, so this would be 
a long-term development. 

Thor International will be 
available by telephone up to 
4pm from September. The 
revised telephone numbers, 
following changes in the Dan- 
ish exchange, are (from the 
U.K.) 010 4533 93 03 05, or 010 
4533 93 75 44. Fax is 010 4533 
93 82 92. 
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Scanner from Germany 


Juergen Falkenberg in Ger- 
many is marketing a colour 
scanner, the QL-Scanner, for 
high resolution digitisation of 
pictures. The OL-Scanner runs 
on a QL of minimum 256K 
expansion, or CST Thor, 
together with ‘nearly any prin- 
ter’. 

The package contains an 
interface, the QL__A/D__l, a 
reflection sensor, the A/ 
D__DS__1, the scanner soft- 
ware and an adapter suitable 
for many printers, which can be 


S.U.B 


QL Super User Bureau is con- 
cetned that somebody is trying 


to discredit it after rumours 
have circulated that it has not 
been contactable. 

While QL World has occa- 
sionally had complaints that 
QL S.U.B. has been slow to 
respond to a specific request or 
order, or that only an answer- 
ing machine has not been avail- 
able, we have normally been 


Eurofair line-up 


The latest list of OL suppliers 
attending the European Micro- 
fair organised by Club Sinclair 
BruQsL includes the Van der 
Auweras showing The Painter, 
a vector drawing program and 
a new word processor; Thor- 
nado Systems, Jochen Merz 
showing a QL Emulator, Rebel 
Electronics with their hard disc 
and controller, D.J.M. Import 
with spares for all Sinclair 
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exchanged quickly for the prin- 
ter's standard head to make full 
use of the scanner’s capabili- 
tics. 

The software, says Falken- 
berg, can be adjusted via two 
parameters to any printer, 
whether or not an adapter is 
available at present. There is a 
facility for ordering custom- 
made adapters, or building 
your own adapter following 
instructions supplied — on 
request. 

The scanner is designed so 


able to get hold of them by 
telephone or fax at their nor- 
mal numbers during the hours 
advertised. 

OL S.U.B, is available for 
general enquiries by telephone 
on 0388-450610 four line 
exchange only, Monday to Fri- 
day 9am to Spm, and for 
S.U.B. 

Helpline enquiries on the 
same number Mondays _ to 


computers, SPEM with various 
pieces of hardware including 
the Digitiser. T.F. Services, 
Miracle Systems with their 
hard disc, Tony Tebby from 
QJump, and Quanta. There 
will also be a roster of Spec- 
trum dealers. Quanta is orga- 
nising a minibus to the: Micro- 
fair. Information about the trip 
is available from Phil Borman 
at Quanta. 


that all pixels are stored sepa- 
rately and can be redefined 
during scanning without having 
to repeat the scanning. Change 
of contrast and inversion can 
be implemented quickly, and 
proportional hard copy of the 
screen can be taken in three 
colours on a standard printer 
width, or black and white in 
multitasking mode. 

The A/D_1 interface, says 
Falkenberg, can also be used as 
a computer-aided measure- 
ment interface for a variety of 


BERS 


Thursdays Ipm to 7pm. Their 
fax number is 0388 601516. 
Please mark all faxes FAO 
SUB. By Email, the Prestel 
number is MBX 219998590, or 
via Prestel QLeaps bulletin 
board on 0388 773737 at any 
time. 

QL S.U.B.'s address is P.O. 
Box 3, Shildon, DL4 2LW. 
Visitors are welcome by 
appointment. 


The European Microfair 
takes place at the Eurovolley- 
centre, Beneluxlaan 22, 1800 
Vilvoorde. Brussels (exit 6 on 
the Brussels ring road), Bel- 
gium on 21 October. Informa- 
tion, travel, and up to date 
details of the Fair itself are 
available from Jacques Tasset, 
Secretary, Club Sinclair 
BruQsL, Aarlenstraat 104. 
1040 Brussels. 


functions. Falkenberg also sup- 
plies add-on boards for such 
functions as temperature sens- 
ing, personal alarm, speedo- 
meter and others. 

For prices and information 
in the UK, contact TK Com- 
puterware, Stone Street, North 
Stanford, Ashford, Kent TN25 
6DF. Tel. 0303-81-2801. 

For details in Europe contact 
Juergen Falkenberg, Hachelal- 
lee 84, D-7530 Pforzheim, W. 
Germany, local telephone 
07231 35269. 


A QL World roving reporter 
saw the Rebel Electronics hard 
disc and controller at a recent 
Quanta event. He reports that 
Rebel are still ironing out the 
details of the expansion back- 
plane and are not yet ready to 
issuc a model for review. “The 
people who already have one 
seem to be perfectly happy 
with it,” he reports, “but at the 
moment they are still the ones 
who know what to do with a 
soldering iron,” 

Miracle Systems is supplying 
its QL Hard Disc system but 
has a waiting list ‘of about three 
weeks’. QL World expects to 
review the system when Mira- 
cle has cleared the backlog and 
has a spare unit available. 

Miracle Systems has now 
ceased to market the Expan- 
deram, preferring to concen- 
trate on the Trump Card 768K 
Ram and disc interface. 

Further information can be 
obtained directly from Rebel 
Electronics on 0757 86630 and 
Miracle Systems on (904 
423986. 


PEN 


Open Channel is where you have the 
opportunity to voice your opinions in Sinclair 
QL World. Whether you want to ask for help 
with a technical problem, provide somebody 


HAN 


NEL 


with the answer, or just sound off about 
something which bothers you, write to: Open 
Channel, Sinclair QL World, Greencoat 
House, Francis Street, London SW1 1DG. 


I was somewhat annoyed to see 
128K boot programs still being 
advertised for sale in QL 
World. Enclosed is a 16-byte 
routine which will perform this 
most simple task. Under your 
normal rates for publication, I 
think this program comes to 
approximately 27 pence, in my 
opinion a fair reflection of the 
number of seconds it takes to 
write a program of this type. 
This is scarcely worth a hex- 
loader, so why not use a deci- 
mal one? 
10 DATA 20032, 124, 1792, 
10364, 4, 0, 20216, 388 
20 A=RESPR (16) 
30 FOR F=0 TO 14 STEP 2 
40 READ N: POKE__W 
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A+F, N: END FOR F 
50 SBYTES 
MDV1__128K, A, 16 


Add a BOOT program: 


10 A=RESPR (16): 
LBYTES MDV1__128K, 
A: CALLA 


Save this as MdV1__BOOT, 
and you have saved several 
pounds. To use this, put the 
cartridge in mdv1 before press- 
ing F2/Fl on start-up; the 
machine will then appear to 
reset yet again, and you put the 
cartridge containing your 
offensive “This will run only on 
a 128K machine” program into 
mdv1 and press F1/F2 again. 
Robert Goodwin 
Guildford, 
Surrey 


Recently I wrote to Ark to 
enquire about the Master Spy 
editor. I wanted to know speci- 
fically whether the editor cold 
be invoked using the Toolkit I] 
command EX and the names of 
the file to be edited, passed as 
an option string such as: 


EX MS; flp2_file_txt 


In little more than a week I 
received a copy with a letter 
stating that my enquiry had 
provoked much hacking and as 
a result a new version had been 
produced which could be 
invoked in the foregoing man- 
ner. 

I would like to thank Ark for 
the superb service and would 
commend Master Spy to any- 
one programming on the QL. 
It is fast and flexible and an 
ideal editor for programming 
applications. 

S. Bedford, 
Bracknell, 
Berkshire. 


I have a problem with a prog- 


ram, Home Finance, which 
centres on its inability to run on 
the expanded QL, giving the 
erroneous “out of memory” 
report. 

I have tried ways of over- 
coming this and then saw page 
43 of the November 1986 OL 


World, in which Colin Opie 
gives a solution to the problem 
—see figure three in that article. 
Unfortunately I cannot make 
this solution work on my 
machine, getting an error mes- 
sage: 


At line 200 bad name 


What I am trying to achieve 
is a means by which I can run 
this program the SuperBasic 
environment of Taskmaster 
which means I have to avoid 
shrinking the memory as I do as 
present. 

I am using aJM QL with two 
Sinclair disc drives and a Mira- 
cle Systemd 512K Expan- 
deram, I have a very limited 
knowledge of programming. I 
like my QL, use it a good deal, 
and rely heavily on your maga- 
zine for gradual instruction in 
Computerese. 

Noel Boland, 

Cotswold Hills Gold Club, 
Ullenwood, 

Cheltenham, 

Glos. GL53 9QT. 


I have a standard QL with 
Miracle Systems 512K Expan- 
deram and the OL Home 
Finance program by Buzz Soft- 
ware. With the Expanderam 
fitted, all programs load cor- 
rectly, except for Home 
Finance, which runs, displays 
the title page, runs a few more 
seconds, and then displays “At 
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line 200, out of memory.” I 

understand that this program 

was designed for unexpanded 

QLs but I feel there must be a 
way round it. 

H M White, 

18 Grasmere Road, 

Frodsham, 

Cheshire WA6 7LW. 


Editor’s comment: Users with 
memory expansion units often 
experience problems with cer- 
tain programs written for the 
unexpanded QL, especially the 
original Psion quartet. If any- 
body has experience of this 
combination, the readers con- 
cerned would doubtless be very 
grateful for any advice you can 
give. 

Neither correspondent says 
whether he has tried contacting 
Buzz or Miracle Systems for 
advice. The  publisher/ 
manufacturer is the first and 
best recourse when problems 
arise with specific packages. 


I was interested in the article 
Whither the QL? in the May 
1989 issue. I believe the major 
problem is not with hardware — 


the QL is good but everyone 
would like more immediate/ 
faster operations — but with the 
software which is, because of 
the operating system, specific 
to the QL in most cases. 

We were faced with a similar 
problem in the Xchange Users’ 
Association. This excellent 
integrated software is also 
available in enhanced form on 
other machines including Apri- 
cot, IBM and Amstrad PC- 
compatibles, either complete 
or in the more limited PC4 
version. 

Psion has informed us that it 
has no immediate plans to 
update the software. At our 
last annual meeting, however, 
we decided to continue the 
Association. Many of the users 
have large databases and have 
invested time and money in the 
software, which performs its 
tasks adequately. 

We would all like to improve 
and update the programs but to 
change to a complete new 
language, with possibly incom- 
patible data files, would be a 
step which is not, in the view of 
many users, worthwhile. It is 
important that manufacturers 
recognise that fact. 

We at the Xchange Users’ 
Group would be happy to wel- 
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come QL Xchange users into 
our organisation. 

John Hanford, 

Xchange Users’ Association, 

Freepost, 

Beckenham, 

Kent BR3 2BR. 


I have read several times about 
a new command for the JS 
ROM, TRA, but I have never 
seen its syntax. As it translates 
characters to the printer it 
could be the solution for the 10 
translatable characters allowed 
by Quill. 

I am using Metacomco Lattic 
C, but I found the linker— GST 
Linker R101V030 — too slow. 
Does anyone know a faster 
one? Where can I get the 
Sinclair Relocatable Object 
File standard? I could write a 
new, faster linker. Does any- 
body have any clues? 

Joao Cardoso, 

Pr. Sousa Caldas 102-42 
4400 VN GATA, 
Portugal. 


Post 


Normally my QL travels 
around in a briefcase with a 
disc drive and box of connec- 
tors. We go through severe 
baggage searches in hotels, and 
work on other people’s prin- 
ters. Mr Tony Firshman’s life- 
line services kept me going last 
year with a repair that took 
from a Fax enquiry on Wednes- 
day to being back in Jordan 
from London and in use by 
Monday night. Salute the 
postal services between Jordan 
and the UK, and Mr. Firshman 
—and all in the teeth of secruity 
blocks on electrical packages 


by post. Roy Myers, 


Haddington, 
East Lothian. 


After several attempts to 
recover an unclosed Archive 
file with the variety of recovery 
programs available, I hit on the 
simple expedient of creating a 
file for test purposes, duplicat- 
ing it under another name, 
then deliberately omitting to 
close one of the files. 

Then I examined the two 
files in the ‘edit file’ facility of 
OKick file was missing the ‘v’ 
from the file header, normally 
vrmldbf. It was easy to restore 


the ‘v’ via the edit facility and 
re-save the file. When tested in 
Archive, the file was readily 
opened and behaved normally, 
This has saved many 
headaches with files I though 
were lost for ever because of 
mains glitches and also pure 
carelessness. I hope this will be 
of use to other Archive users 
who have suffered similarly. 
G. M. Young, 
Ravenshead, 
Nottingham. 
Editor's comment: As I am at 
this moment struggling with a 
major file loss caused by — we 
think — a minor procedural 
error, I can say with feeling that 
! hope that Archive users every- 
where will bless your name 
many times in the future. 


Dump 


I am thinking of buying an 
Integrex 132 colourjet printer 
for my QL. It is claimed that 
this printer is supported by 
screen dump software for the 
QL. I need a printer for heavy 
duty colour graphics and text 
printing and consider dot- 
matrix ribbon printers unsuit- 
able. 

I would be grateful for any 
advice OL World readers could 
give me on this printer and on 
software which would enable it 
to be used with the QL, or any 
other suitable colour printer 
for the QL. 

Kieron Salmon, 
Robon Hill Cottage, 
Water End, 
Stokenchurch, 
Bucks HP14 3XQ. 


Loose 


I mailed a letter and Microd- 
rive cartridge to you on June 
12. A few days later the Mic- 
rodrive cartridge was returned 
to me by the Post Office stating 
that “This article has been 
found loose in the post.” Luck- 
ily I had labelled the cartridge 
cover with my name and 
address. 
You may like to quote this as 
a warning and suggestion to 
readers, this time I am using 
the envelope method. 
E. Bamber 
Milngavie 
Glasgow 
Editor's comment: Putting the 
owner's name and address on a 
label on all Microdrive car- 
tridges sent to this or any other 


publisher is a useful safeguard 
against loss but the single most 
effective safety devices is to 
fasten the mdv case firmly to its 
covering letter, so that the car- 
tridge can be slotted in and out 
of the case without separating it 
from the paperwork. Putting 
loose cartridges in envelopes, as 
many folk do, is asking for 
migrating Microdrives. 


I have modified Giles Todd’s 
DIY Assembler and obtained a 
79 percent speed increase: 28 
percent from the use of a 
temporary file as suggested by 
Giles Todd, and 72 percent 
from restructing several key 
modules. 

The only ‘enhancement’ I 
have added is the ability to use 
lower case input. Output has 
been checked using a dissas- 
sembler. I have also corrected 
the bug in the line 12800, which 
related to addressing errors 
subsequent to an ASR instruc- 
tion. 

Graham Worsnop, 
Sutton, 
Surrey. 


Most users have the translate 
to print the correct £ symbol (£, 
ese; "Ry BEX #, ESC AR, 
NUL) but where can one get 
the full list of translates to get 
the full keyboard to work cor- 
rectly? 
Norman Durrant, 
185 Portland Road, 
Edgbaston, 
Birmingham B16 9TD. 


Iam a dabbler in machine code 
and would like to pass on the 
following tip: with MOVEQ 
the limit of transferring data is 
128-127, that is ##-$80 to 
##7F. To transfer 128 the 
usual way is MOVEL 
##80Dn. An alternative is: 
MOVEO ##-$80, Dn 
NEG. L Dn 
I have tested both over 20 
million loops. The times are: 
empty loop: 64 seconds; usual 
method: 152 seconds, includ- 
ing empty loop; alternative: 
131 seconds, including empty 
loop. 
C. D. Seaden, 
Foxhole, 
St. Austell, 
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ome useful information has 
been provided in answer to my 
query about connecting buf- 
fered and unbuffered adapter 
units to the expansion port. Graham 
Priestley, who was responsible for hard- 
ware design at CST, states that the 
original QL design assumed little expan- 
sion would be required, a 512KB addition 
to memory which Sinclair never produced 
being thought sufficient. It was expected 
that Microdrives would be the only stor- 
age medium. The expansion port is 
unbuffered, which made it cheaper. 

The strength of the signals available 
through this port is such that only a limited 
amount of external circuitry can be driven, 
unless buffer chips are provided. Buffer- 
ing does not solve all the problems of 
connecting devices externally; there is 
also the matter of establishing reliable 
communication between devices and the 
CPU chip and handshaking is used to 
indicate completion of data transfers. 

Those who follow the development of 
PCs will be aware that distance is becom- 
ing critical in their main board design, with 
the rapidly-increasing operating fre- 
quency of CPU chips — typically 20- 
33MHz and rising towards 50MHz — 
placing a premium on first-class PCB 
design; the U.S. restrictions on generated 
radio interference from the PC also 
constrain the designer, so that the time 
appears to have arrived when the really 
good designers are being sorted out. 

Obviously, the considerations with the 
QL were on a lower level but nevertheless 
the expansion devices produced varied 
considerably in their design quality. The 
68008 chip expects signals to be returned 
in less than half a cycle of the 7.5MHz 
clock and this is a tight schedule on all the 
wiring, PCB track, connectors and com- 
ponents of a typical expansion path. 

Most QL peripherals are apparently 
designed to work without the use of wait 
states, deliberately-introduced delays to 
allow operation of slow devices to be 
synchronised with the fast CPU and, the 
further from the CPU they are, the more 
chance there is of devices returning 
inaccurately-timed signals to it. 

EPROMs may not work reliably in an 
expansion chassis for this reason. The 
problem can be avoided by keeping the 
signal path short and this was done with 
the Trump Card and the earlier Medic 
interface. The alternative was to use a 
much more complex design, with the 
appropriate circuitry for ensuring correct 
timing; the CST +4 unit was such a device 
and no doubt many users like myself 
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Bryan Davies looks 
at the prospects for 
memory expansion 
on the QL 


eagerly awaited further details of that, 
when it was first mentioned several years 
ago. Unfortunately, some _ existing 
devices would not have worked with that 
unit and the all — CST solution was too 
expensive for most tastes, although a few 
hundred were sold and CST designs set 
the standards for others. 

One further thought concerns the way 
Sinclair used pins on the 64-way connec- 
tor for decoding the addresses of expan- 
sion devices. The expansion slot appears 
to be in the lowest 16KB of the hardware 
expansion area and 16 devices can be 
connected but, if they follow the Sinclair 
numbering standard correctly, some com- 
binations of cards will not work. A disc 
interface and memory card can work 
together but a disc interface and a second 
hardware expansion card cannot, unless 
one of them is modified to appear at a 
different slot number. 

Priestley has offered technical assist- 
ance on QL or Thor constructional pro- 
jects. In case there is a flood of requests, 
we are not publishing his address — 
letters should be sent care of QLW. 


Not unbufferd 


Returning to what prompted my original 
query, it would seem that an unbuffered 
multi-way expansion adapter card is not 
the proper way to go. It might work to 
some extent but only with certain expan- 
sion cards. It is a pity there do not appear 
to be any really “commercial” buffered 
adapters now available. You are still 
limited to one expansion card in the main 
expansion port. 

We are always in the situation where 
the user cannot influence directly what is 
being produced. One has to wait for new 
products to appear and then buy them if 
they offer sufficient of the required 
facilities at a suitable price. That leaves 
gaps in the range of available hardware, 
some of which may be evident to de- 
signers, but the commercial potential may 
be thought too limited. 

Taking users of the Trump Card as 
likely purchasers of further enhance- 
ments, what do such users think is 
missing from the market? For example, 
there are several useful programs avail- 
able on plug-in ROM modules — /ce and 


REOHUNE 


Lightning for instance — but they cannot 
all be used together. You have a problem 
if you want to use more than one such 
ROM. Units have been sold which 
allowed several ROMs to be mounted on 
one PCB but | believe they all operated on 
the basis of switching in only one ROM at 
a time, not really satisfactory. 

Copyright and space problems pre- 
sumably prevent several programs being 
put on to one ROM unit; it would be 
difficult to decide on a configuration to suit 
a significant number of buyers anyway. 
Incidentally, my experience with the Ice 
ROM suggests that anything plugged into 
the ROM port needs to have an additional 
attachment, beyond the connector. A 
U-shaped wire bracket, going round the 
ROM unit and screwed to the QL casing 
at either side of the port, got rid of 
occasional strange behaviour; Samsung 
QLs have a spring to press on to anything 
inserted into the port. Once the Trump is 
in place you cannot fit any other expan- 
sion cards. Even if you could fit them there 
would be the problem of finding address 
space for them, since the Trump takes up 
the spare slots. If you want to connect 
both a serial and a parallel printer there is 
no parallel connector. 

Being more ambitious, what are the 
chances of improving the QL operating 
speed and memory capacity and adding 
the capability to handle high-density 
floppy drives? Presumably, the original 
layout of the QL makes it virtually impossi- 
ble to run the whole machine at the full 7.5 
MHz and a faster CPU would gain us 
nothing. The full 16-bit or 32-bit CPU 
chips no doubt create major integration 
problems; could they be added separately 
from the 68008? 

Priestley mentioned that the SCSI/2 
interface specification, as used for hard 
disc interfacing, includes provision for the 
linking of slave processors; could the 
display and printer be driven by such a 
fast processor and permit much better 
resolution and speed for desk-top pub- 
lishing and CAD? 

The 68020/68030 CPUs have found 
favour in the PC world for driving laser 
printers, where there is a large overhead 
of conversion work to do to make the PC 
program output suitable for driving the 
basic laser engine. RAM of 1MB has all 
but become the basic amount on several 
types of micro and even the 16MB 
potential of 80286 and 80386 PCs has 
soon been overwhelmed by ways of more 
than doubling that amount. 

There would not be too much point in 
increasing the available memory of the 
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QL greatly until faster operation were 
possible but a fair number of users would 
be interested in raising the total to 1MB — 
what happened to the Sandy design? 
Once having used high-density 1.2 and 
1.44MB floppy drives, the 720KB in the 
QL system seems restrictive and we are 
soon to be faced with 2 or 4MB drives as a 
new standard on PCs, if one accepts 
magazine comment on the subject. 
text?” now has French and German 
versions. The latest version of Tony 
Tebby’s Q7yp spelling checker caters for 
the English version of this program; check 
before ordering but | think it likely the 
German version is also Supported. 
Further enhancements to text®’ should 
be available before the end of the year. 

FlashBack Special Edition is receiving 
final touches and it is hoped copies will be 
available by the time this article is pub- 
lished, For those who are not aware of the 
main reason for the delay, the program- 
mer who was writing the add-on modules 
withdrew because of other commitments 
and the original writer of FlashBack 
stepped in late in the day to get the project 
completed. The revised version of Light- 
ning and Media Manager Special Edition 
have now been available for some weeks; 
for those who want to gain every bit of 
extra performance the latest Lightning is 
well worth investigating and the new 
Media Manager is a_ considerable 
improvement on its predecssor. 

A surprising number of Tandata 
modem sets have seen sold recently; the 
total is estimated to be around 500-700, 
with more to follow. The obvious reason is 
the very low prices — £29-£39. Sector 
Software should by now have sold all its 
stock of the complete set of three units — 
but expect to have two-unit sets — without 
QCall, therefore lacking auto-dial and 
auto-answer — available for £29 inclusive 
of VAT. If any recent buyers have found 
that the supplied software does not work 
with an expanded QL they can try contact- 
ing Tandata, which has been supplying 
the later software at low cost; version 2.2 
is suitable for expanded QLs. As Tandata 
has obviously cleared its stock of units it 
may not be prepared to deal with 
enquiries for much longer. 

| hope that alert readers who read 
Trouble Shooter in the August issue, 
then looked at the end of the Sector 
Software advertisement in the same 
issue, will not think too badly of me. My 
comment about the possible cost of re- 
introducing Jan Jones’ book QL Super- 
Basic — the Definitive Handbook were 
made some time before that advertise- 
ment was made up and it was not known 
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to me that David Batty had been success- 
ful in obtaining permission to sell the 
book without having to find as much 
money as had been suggested pre- 
viously. The price of the book is £8 from 
Sector Software. For anyone who does 
even a little SuperBasic programming, 
this is the reference book. The reprint is 
being published by Quanta — see QL 
Scene. 

Checking through cartridges sent to QL 
World with programs on them it was no 
surprise that some of the programs did not 
run or gave errors. Roughly two-thirds of 
the cartridges checked showed a total 
sector-count— the figure on the right after 
a directory — of less than 218, with a few 
showing less than 210. To make matters 
worse, the difference between the “avail- 
able” and “total” figures in several cases 
was more than the 2-3 sectors, which is 
about the limit for trustworthy cartridges. 
A reasonable Microdrive and cartridge 
combination will give 218/220 or more. 


Clean drives 


This is just another reminder to check 
your Microdrives; push the rubber roller 
down on the motor shaft and clean the 
debris from the roller with isopropyl 
alcohol or fit a new roller. If one drive is 
much better than the other, use it for 
saving important files. 

Clive Turner reports receiving a work- 
ing copy of Talent Cosmos + but it still 
arrived on cartridge instead of the 
requested disc and a session with an 
editor was necessary to make the pro- 
gram usable from disc. He finds the 
program much improved and a master 
key cartridge is no longer needed. 

Stuart Robertson would appreciate 
advice on transferring data between the 
Commodore Amiga and the QL. He is 
trying to send register dumps from the 
Amiga via the RS232 port, a process 
which can be done only at 9;600 baud, 
with one stop bit. Unfortunately, the QL 
User Guide states specifically that more 
than one stop bit is required at that speed. 
Normal communication is satisfactory at 
lower rates. Any suggestions? 

Miracle Systems has replaced the 
serial-parallel interface which was Ccaus- 
ing printing problems with Front Page for 
M. C. Holland. Printing from that program 
and Easel is now normal. 

Humphrey Ziberlin of Eindhoven com- 
plained about not receiving an “anti- 
bounce” modification for his keyboard 
from Schon for a period of several 
months. Sch6n report that the goods have 
since been despatched. As it can find no 


record of previous letters concerning 
Henri Hulet, copies have been sent. 

PDQL reports having sent a KBL 
casing and repaired QL to Robert Carley. 
The delay was occasioned partly by the 
QL not working properly after initial repair 
but mainly by slow delivery of the KBL 
from another supplier; the latter situation 
should not recur, as the source of such 
delay has been located. 

There have again been two letters from 
overseas readers complaining about the 
higher prices charged to them, compared 
to those for U.K. residents. Be assured 
that this is not an attempt to make more 
money out of unfortunate overseas QL 
owners; it is a reflection of the fact that the 
cost in time and money of handling 
overseas orders is much higher. Where 
products are relatively expensive and 
have a good profit margin — i.e., hard- 
ware like disc drives, memory expansions 
— some or all of the extra cost can be 
absorbed by the supplier but it costs 
equally as much to send a £20 program 
with comprehensive instructions and’ 
there is not sufficient profit in that to cover 
the extra costs. 


INFORMATION 


Jan Jones’ book 

FlashBack Special Edition, 
Tandata modem: 

Sector Software, 

39 Wray Crescent, 

Uines Walton, 

Leyland, 

Lancs PR5 3NA. 

Tel: 0772 454328 — bulletin board 
after 1800 hrs. 


text®”: 

Software®’, 

33 Savernake Road, 
London NW3 2JU. 


QTyp: 

Care Electronics, 
800 St. Albans Road, 
Garston, . 
Watford, 

Herts WD2 6NL. 

Tel: 0923 672102. 


Lightning, 

Media Manager Special Edition, 
Digital Precision, 

222 The Avenue, 

Chingford, 

London E4 9SE. 

Tel: 01-527 5493. 
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BASIC 
improvements 


In Part Three of our occasional series, 
Desmond Barry presents some programming 


tricks which will speed up your SuperBasic code 
with no expensive add-ons. 


¥ here has probably been the odd 

occasion when you have wished 

that there was more speed avail- 

able in the OL — probably on 

more than the odd occasion. This article is 

about various things you can do to speed 

your code. It will not make it go like 

machine code or a Thor XVI but some 
tricks can gain you a good deal. 

The two main areas of consideration are 
the screen and response times. They also 
overlap on occasions. So far as the 
screen is concerned, not much can be 
done to speed it directly unless you bypass 
it. If you do that, you will not produce 
anything which multi-tasks. The screen is 
linked to the multi-tasking routines and 
windows. That is why it is slow. Plenty is 
happening when you issue a screen com- 
mand. 

If you want to bypass the screen control 
there are sufficient pieces of code avail- 
able to use as basic algorithms which are 
satisfactory on lesser computers. As a 
supporter of the OL, the Thor and Qdos/ 
Argos, | am not going to help you spoil a 
great computer. 


Few updates 


The principle behind speeding the 
screen is to use it as little as possible; 
update things when they need it rather 
than all the time. It is also worth looking 
for other ways of doing things. 

BLOCK is a very useful keyword. It can 
be used for simple colour manipulation 
and clearing windows. It is affected by the 
OVER command. 

Not many people know that, because it 
docs not say so in the manual. Type-in this 
program: 


100 WINDOW 41 ,256,200,256,0: 
WINDOW #2,256,200,0,0 
110 OVER#2,0 
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120 LIST 

130 BLOCK #2,256,200,0,0,4 

140 PRINT “That was BLOCK with 
OVER 0°/"Press a key”. PAUSE 

150 LIST 

160 OVER#2,—1 

170 BLOCK #2,256,200,0,0,4 

180 PRINT “That was BLOCK with 
OVER ~—1"/"Press a key”: PAUSE 

190 BLOCK #2,256,200,0,0.4 

200 PRINT “That was the same again. 
Interesting?”/“Press a key": PAUSE 

210 RECOIL#2.7,6,5,4,3,2.1,0 

220 PRINT“ And that was RECOL” “All 
finished” 


Note also that BLOCK can be set as any 
size from one pixel to the size of the 
window with which you are working. It 
can be very useful for cursors and high- 
lighting. 

If you want to update something, say 
row and column numbers, do it when 
nothing is happening or at the end of a 
timed period. For instance: 


370 n=code(INKEY$#15,50)): IF NOT 
n THEN update:GOTO 370 


In this case, INKEY$ waits for one 
second; then, if no Key has been pressed, 
procedure ‘update’ is called. If a key has 
been hit, control passes to the next line, 
whatever it is. This little trick means that 
the screen is not updated unless nothing is 
happening. As an alternative, you may 
like to update something at regular inter- 
vals. Try this: 


500 t=DATE 

$10 REPEAT loop 
520 lots of 

530 code to 

540 do something 
550 like the 

560 main loop 


570 in the program 

580 IF DATE>t+10 then update: 
t=DATE 

590 END REPEAT loop 


This updates only if aminimum time, 10 
seconds in this case, has passed. Line 580 
checks if time t has increased by 10, 


Slow down 


Why do this kind of thing? It may be 
surprising but even an apparently small 
job such as writing two characters to the 
screen can slow everything. To keep a job 
moving, climinate as much unnccessary 
work as possible. 

The next ‘speed-up’ technique is 
another variation on doing as little as 
possible. This next piece of code is how 
one would normally do a menu loop: 


700 REPEAT loop 
710 n=CODE(INKEY$(#15,—1)) 
720 SELECT ON n 


730 =49:option] 
740 =50:option2 
TSO? esa 

760 =56:options 


770 END SELECT 
780 update__screen 
790 END REPEAT Loop 


There is nothing basically wrong with 
this, except that every time a key is 
pressed the loop is executed and the 
screen updated. This occurs whether the 
key is valid or not. If it is not you are 
wasting time doing nothing useful. In a 
long loop that will result in response 
times becoming longer and that can be 
annoying for the user. Now look at this: 


100 REPEAT loop! 
110 REPEAT loop2 
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120 n=CODE(INKEY$(#15,—1)) 

130 IF range(n,49,56) then EXIT 
loop2 

140. END REPEAT loop2 

150 SELECT ON 


(Rest as the above example) 


In this routine, the main SELECT will 
be used only if a number between | and 8 
is hit. Otherwise control remains in the 
much shorter and therefore faster loop2. 

Do not use procedures and functions if 
they are not necessary. They involve a 
time overhead when being called. If the 
structure is called from only one place, or 
from not many places and it is fairly short, 
it can be worthwhile not using a structure. 
This is especially the case if the routine is 
likely to be called rapidly in succession, as 
in a cursor-moving routine. 

Another thing which can help is not to 
make your code too flexible. That may 
sound odd and it tends to go against the 
principle of using parameter-passing to 
procedures and functions, but if you have 
a very flexible piece of code it probably 
spends a fair bit of time checking validity 
of parameters and so on. If you want the 
fastest code, cut it to the minimum. Of 
course, this may also mean you need 
several pieces of code doing broadly the 


same thing, in which case it can use 
memory. It is a compromise, like so many 
other things in programming. 

Avoid screen-scrolling. It takes a long 
time. It is generally faster to clear it and 
refresh with a new batch of data if that is 
possible. It may be faster to use AT to 
control printing rather than just letting 


“It may be 
surprising, but 
even a small job 
such as writing two 
characters to the 
screen can slow 
everything down.” 


Qdos take its course. It may take a little 
more code to control when a window is full 
but it is faster. 

This may sound strange but if you arc 
running only in SuperBasic, floating point 
numbers are faster than integers — my 
tests say about 10 percent faster. If you are 
compiling, integers should be quicker. 
Remember that FOR loops cannot nor- 
mally use integers as the controlling 
counter. In some situations, the bitwise 


logical operators may be faster than any 
alternatives. 

I found a rather odd thing once about 
QL maths. In a long equation the time to 
calculate it is roughly proportional to the 
length of the equation. In other words, a+ 
bis done slightly faster than twice as fast as 
at+b+a+tb. It also does not seem to matter 
which operators are used — +,—,*,/, °. 

If you have missed the significance, it 
means that the QL spends more time 
reading what you have programmed than 
doing it. So the shorter you can make the 
equation the faster it will run. Look at 
this: 


100 FOR a=1 TO 50 
110 PRINT a*(n*x—y)+a *(n*x—y) 
120 END FOR a 


I do not know what it means cither, 
Now look at this: 


100 z=n*x—y 

110 FOR a=1 to 50 
120 PRINT a*z+a “z 
130 END FOR a 


When I ran both, using 10,000 iter- 
ations, the loop in the second ran about 45 
percent faster, That is worth having, is it 
not? 


text?’ Version 2.00 
STATE OF THE ART IN QL SOFTWARE 


87 : P 
text’ Advanced word processor with multiple screen founts. Many 
text-mode printer drivers are supplied with the program. 


fountext® State-of-the-art graphic printer driver for text”. 
Now supports many non-Epson printers as well as Epsons and 
compatibles. fountext™ is supplied with 32 high-quality founts in 
different styles and sizes up to 72 pixels high. Full WYSIWYG. 
Dedicated 24-pin version is supplied at no extra cost. 


founted” New version Graphics editor for text” and 
fountext™. Allows you to create founts up to 8496 pixels. Captured 
screen images can be loaded to produce picture founts for use within 
documents. 


2488 State-of-the-art dedicated text-mode printer drivers for Epson, 
NEC and Star 24-pin printers and compatibles. The drivers support 
multiple typefaces, proportional spacing, double-height and doublt- 
width modes. 


ty eset” State-of-the-art dedicated text-mode printer drivers 
for high-resolution printers. typeset” — I for Epson GQ 3500 laser 
printer and typeset” — II for the Canon BJ 130 bubble-jet printer 
support all the printers resident founts including proportional spacing 
in different sizes. 


text" requires memory expansion (as little as 64K will do). fountext™ 
and founted™ require at least 128K expansion. 

See the reviews in QL World (April) or Quanta (March, May). Send for 
our free comprehensive lealfet if you need more information. 

An independent telephone support service including an excellent step- 


by-step tutorial disk is now available. Contact Mr Terry Harman on 
0604 842875 for details and the charges. 
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Software and manuals are available in English, French and 


German 

text” £45 
founted” £15 
Complete edition: text + fountext™ + founted™ 
typeset’ I and II £25 each 2488 
German version: 

Upgrades: 

text” from version t.xx to 2.00 costs £15. founted™ from the original to the 
new verston costs £3, Please send manual and disk, 

Other software: 


fountext™ 


add £4 to the total 


New version of Qtyp (including Hotkey System 2 multitasking and key- 
definition software) can check the spelling of complete text® files at the rate of 


200 words per second! 

Taskmaster £25 Qtyp £29 
Spellbound £29 Qpac £19 
Prices are inclusive of airmail worlduide. Payable by cheque, Postal Order, 
Eurocheque or credit card. Please specify language, cartridge or disk system (32" 
and 5's" disks, single or double sided, 80 or 40 track, can be supplied). 
Send your order to Software”, 33 Savernake Road, London NW3 2JU, 
UK 

Credit card orders by telephone and personal callers are welcome by 
Care Electronics, Tel 0923 672102. 


Software’ 


33 Savernake Road 
London NW3 2JU 
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INFORMATION 
Product: QL Playwright 
V1.1 

Price: £14.99 


Supplier: E. J. Wilce, 48 
Liddington New Road, 
Guildford, 

Surrey GU3 3AH. 


his is one program 

which certainly can- 

not be called run-of- 

the-mill. Few  prog- 
rammers risk offering a word 
processor program for sale 
and very few would offer one 
for a particular, small group of 
users, in this case, writers of 
scripts for TV, film and theatre. 
The apparently limited appeal 
of this program may be mis- 
leading; the buyer is not obli- 
ged to use it for writing epic TV 
series and a little imagination 
could find other uses for it. The 
author has been sensible 
enough to give the program a 
fair degree of flexibility; it is for 
the user to decide what to do 
with it. 

The QL world has its share 
of people with interests which 
might seem rather unusual to 
the general public but an 
interest in theatre is not 
uncommon. There must be 
thousands of amateur theatre 
groups and hundreds of peo- 
ple writing scripts for one type 
of production or another. It is 
just that | had, until now, 
thought of this as being 
Amstrad PCW country, not QL 
territory at all. 


Disc only 


The first thing to note is that 
this program does not fall into 
the amateur category. It is well- 
presented and works smoothly 
and speedily. The code is 
compiled with Turbo and a run- 
time module of Turbo exten- 
sions is supplied. While it is 
said to be usable on an unex- 
panded QL it is clear that it is 
really intended for use only on 
a machine with memory 
expansion; itis apparently sup- 
plied only on 3.5in. disc, which 
is a further limitation to the 
number of potential custom- 
ers. There can scarcely be any 
complaint about the price — 
even shareware or public 
domain programs are effectly 
little or no cheaper. 

The program documentation 
is supplied on disc files and 
one cannot expect an elabo- 
rate printed manual for the 
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price. The file is not a Quill one; 
you have to run QL Playwright 
to load the documentation files 
and the supplied single page of 
written instructions for making 
a back-up copy and using the 
program are not comprehen- 
sive, to say the least. 

That said, most users should 
not be too annoyed by the way 
the back-up routine asks no 
questions and gives no mess- 
ages but writes the names of 
the files to the screen as they 
are backed-up. If you boot from 


nature of the program. In fact, 
SpeliBound seems to work on- 
line with QL Playwright and 
also off-line in conjunction with 
FileBound. This should not be 
taken as an assurance of com- 
patibility — the author makes 
no mention of spell-checking. 

As the program is targeted at 
budding playwrights rather 
than existing ones who may 
not be using QLs, a further text 
file is supplied, giving guidance 
on how to write scripts. It gives 
guidelines on what to put into a 


PLAYWRIGHT 


Bryan Davies arranges his words with a program 
written for scriptwriters and other specialist scribes. 


the master disc all you get is a 
copyright symbol, the word 
“Software”, and a_ piercing 
tone from the QL speaker; 
most people must have forgot- 
ten it exists, so that may be a 
shock. Although the program is 
not copy-protected, the same 
symptoms are likely to occur if 
you change the name of the 
registered buyer. 


No backup 


A single-page introduction 
gives very brief advice on run- 
ning Playwright but not on 
making a back-up copy; the 
separate SuperBasic program 
provided for making a copy is 
not mentioned. Use of the 
DATASPACE TASK program 
— if an “out of memory” mes- 
sage appears when the prog- 
ram is booted — is referred to 
but a little more detail, for less- 
experienced users, would be 
desirable. 

The user is advised to load 
the file containing the user 
guide as a first step once the 
program is running. The guide 
contains 12 full pages of 
advice; it is well-written and 
comprehensive. Some charac- 
ters appearing in the guide are 
there for print formatting and it 
would have been preferable to 
explain their use at the start of 
the document, rather than 
have the new user puzzling 
about their significance. 

It might be assumed that 
available spell-checking prog- 
rams cannot handle Playwright 
files, since there are several 
spelling mistakes, including 
the non-word “zeroise”, in the 
two provided text files; this 
seems out of keeping with the 


script, how to arrange it, avoi- 
dance of “padding”, together 
with a sample script and speci- 
fication. This documentation 
will be very helpful to the 
beginner and is not too simple 
to help the more experienced 
writer. 

Memory of 512KB or more is 
recommended. The program is 
on 3.5in. disc but it can be 
configured to run from Microd- 
rive, floppy or RAM disc. As an 
EXEC-able task, the program 
can be multi-tasked but the 
user may have to do a little 
work to get it to do so. Even 
with 240KB free memory it 
would not run initially with the 
usual program set-up in the 
896kB review system; running 
the supplied Turbo sub-routine 
DATASPACE__TASK reveal- 
ed that the program was set up 
for a data space of 417,792 
bytes and reducing this to 
200KB got the program run- 
ning. 


Set-up 


For users already familiar 
with the Turbo compiler this 
might be a fairly obvious proce- 
dure but the instructions would 
not be sufficient to guide other 
users what to do. Most users 
could be expected to run Play- 
wright on its own and the 
supplier will set it up for the 
required memory configura- 
tion, if advised beforehand by 
the prospective purchaser. 
The value quoted is suitable for 
a 512KB system. 

Before commenting on how 
the program performs its 
intended function, it is worth 
pointing out some _ non- 
theatrical roles. You can 


Import files from Quill, fext87 
and The Editor, without the 
typestyle enhancements — 
the program does not provide 
bold, underlined and so on as 
they are apparently not 
required in scripts; a fair 
amount of format data from the 
Quill file is left, as it is in other 


‘editor programs. SuperBasic 


programs can also be Import- 
ed but the word-wrap function 
places a constraint on line 
length which might be 
unacceptable to some prog- 


rammers. The Import function 
operates decidedly slowly. 
Program lines can be re- 
numbered. the program is sta- 
ted to have been used to aid its 
own development and is said 
to have no GO SUBs or GO 
TOs in the source code. Files 
can be Export-ed in ASCII 
form. 


Curtains 


The initial program screen 
gives an impression similar to 
the opening of theatre curtains. 
The full screen width is not 
used, as the “curtains” remain 
at either side, but scripts are 
less likely than normal word 
processing documents to need 
80-85 characters. A stylised 
character font is used and it 
permits 71 characters before 
word-wrap occurs. The font 
can be changed; deleting or re- 
naming the default font file 
causes the normal QL font to 
be used, or you can design 
your own font to “normal QL 
standard” and give it the name 
of the default file. 

At upper right of the curtain 
area is a date and time indica- 
tor. The text area is 19 lines 
deep. The status area is at the 
bottom, divided into three sec- 
tions. At the very bottom is a 
line giving the necessary ALT 
and cursor key combinations 
to select menus and functions. 
Above that, a box at the left- 
hand side lists functions in 
menu groups of five and one at 
the right-hand side gives infor- 
mation on the requested func- 
tion. 

The menu group can be 
changed by using the left/right 
cursor keys with the ALT key, a 
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total of six menus giving 25 
functions — one menu of five 
positions calls the other 
menus. A function is selected 
by moving the cursor bar to it 
using the up/down keys with 
ALT and then pressing ESC. 
Alternatively, some functions 
are available by keying CTRL 
with an appropriate letter — 
e.g., CTRL+D deletes the cur- 
sor line. Text indenting func- 
tions alternatively are available 
from the F1-F5 keys. Those 
menu items which can be 
selected by alternative keying 
have that keying listed after 
them. Standard text functions 
provided are Mark/Cut/Paste 
(block), Delete (line), Format 
(paragraph), Search, (go to) 
Top/Bottom, Save/Load, 
Import/Export, Directory (flp/ 
mdv/ram). The date/time clock 
can be set quickly from a 
menu. Functions specific to the 
script-writing operation are (go 
to) Next/Last scene, (check/ 
alter) Title, (check list of) 
Roles, (check/alter) Scene 
text, Indentation. The latter 
function allows text indentation 
for Scene, Action, Character, 
Dialogue and Bracket (for 
directions to characters). 


Functions 


Various functions obtained 
from keying CTRL plus one 
alpha character are not listed 
on menus: search Again, Go to 
(marked position), change 
case (upper/lower), Quit (prog- 
ram), (search and) Replace, 
Undelete (line), re-set indenta- 
tions (to defaults), refresh 
screen, join (2 lines) together, 
Zero (re-set) indentation. 

A useful variation of the 
block function is obtained by 
using SHIFT +F2/F4/F5 at the 
end of a block; this causes the 
marked block to be converted 
to the indentation appropriate 
to those function keys (Action/ 
Dialogue/Bracket). This can be 
done with Import-ed text to put 
it into the current script format 
quickly. The Search (and 
Replace) functions are carried- 
out efficiently; the search starts 
from the current cursor posi- 
tion and goes to the end of the 
script but then returns to the 
top of the script and continues 
from there, avoiding the need 
to key-in a specific command 
to start from the top. 

The Go To command can be 
used while marking a block, 
making it a quick job to mark a 
large section to the end of a 
document. information specific 
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to a script is kept in a Header; 
the title, list of characters, time, 
changes from the indentation 
defaults, printer-control data, 
all reside here. This informa- 
tion becomes evident at print 
time but can be accessed and 
altered from a menu at any 
time. 


New keys 


Although function keying is 
sensible in some ways, the fact 
that key combinations which 
are likely to be already familiar 
from other programs are 
sometimes used for similar 
functions, but sometimes for 
different ones, compels the 
user either to learn a complete 
new set of keying or accept 
rather slower operation by 
using the menus all the time, 
and possibly making a sepa- 
rate “crib sheet”. 

The Tab key moves the 
cursor one word to the right — 
SHIRT +right cursor in Quill or 
The Editor. One apparent 
omission from the list of func- 
tions is a way of “zapping” the 
current file without quitting the 
program. General housekeep- 
ing functions have to be acces- 
sed by returning to Super- 
Basic. 

Manipulation of text is fast, 
with none of the disadvantages 
which plague Quill users. Even 
with several programs loaded, 
cursor movement is steady 
and fast enough. Cut and 
Paste operations are also fast, 
and simple — CTRL+M to 
mark the first block line, cursor 
to the last line, then CTRL+X 
to delete the block. Changing 


data discs reveals that provi- 
sion has not been made for this 
action, the “new” disc making 
the drive an “invalid device”. 
The standard QL key com- 
bination of CTRL+C is used to 
switch between multi-tasking 
programs, of which the Play- 
wright print program can be 
one. A 640KB QL permits 
about 5,000 lines — roughly 
100 pages — in one script file, 
said to be enough for an aver- 
age feature film. The number 
of lines in the current file is 
displayed if the (go to) Bottom 
function is used; the maximum 
number of lines available with 
the set memory allocation is 
displayed in the left-hand sta- 
tus window. If larger scripts are 
required they can be split into 
separate files and merged — 
up to 20 files — at print time. 


Fast driver 


Scripts are apparently sup- 
plied with no typestyle enhan- 
cement and that allows the 
printer-driver routine to be 
fairly simple and fast. The 
current driver set-up is for 
Epson-compatible printers 
only. To use the print routine 
you quit the main program and 
EXEC the print program; para- 
meters can be appended to the 
program name, to alter print 
configuration — e.g., port, 
page length — at print time. 
Alternatively, there is a text file 
which is accessed by the print 


program which can be Import- 
ed into QL Playwright and the 
parameters altered there. 

Print output can be to 
screen, file or printer. Directing 
print to the screen first allows a 
“print preview”, to check that it 
will look satisfactory before- 
hand. During text input there is 
no “page” as such but the print 
program splits the text into 
pages and ensures that there 
are no widow or orphan lines 
created in the process. Like- 
wise, section numbering is 
added automatically by the 
print program, in response to 
codes put into the text. 


Tailored 


The program is well put 
together and runs well. It has 
plenty of facilities, both for its 
intended purpose and_ for 
general WP use. The flaws are 
minor and excusable at the low 
price. For the budding script 
writer, the saving in time for- 
matting the text is great, com- 
pared to what would be neces- 
sary with other QL WP prog- 
rams, and the way commands 
are tailored to the job in hand 
allows the writer to concentrate 
on the creative activity, rather 
than having to devote attention 
constantly to the demands of 
the program. 
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SUPER 
BASIC 


Are you finding your disc library 
a little too large to cope with? 
Bring order to chaos with Mike 
Lloyd’s file-searching utility. 


ast month’s — string-matching 
utility has a role to play in a 
variety of applications. The 
most immediately obvious is to 
search for records in a database but word 
processors, spreadsheets and file mana- 


ORWICE 


MEOTUM FPATTERH 


gers all need searching facilities of onc 
kind or another. Resisting the temptation 
to develop a fully-fledged database merely 
to demonstrate string-matching in action, 
instead I have written a relatively simple 
and useful file-searching program. 

Scattered among my 150 or so discs and 
Microdrives are master copies of prog- 
rams, partly-developed programs, half- 
forgotten data files, old word processing 
documents and back-ups for almost every- 
thing. What there is not, despite my best 
efforts, is a system which allows me to find 
a given file with unerring accuracy. I 
suspect that most readers, with the possi- 
ble exception of the pathalogically neat, 
are in the same position. Accepting that it 
is too late to develop a program which 
enforces a logical file storage system, what 
is now needed is a program to search for a 
file whose name is only dimly remem- 
bered and whose location is completely 
forgotten. 

The file-seeking program listed uses last 
month's string-matching routine to dis- 
play selected filenames on the screen and 
allows users to view or print the file 
contents and even opt to delete them. 
Lists of filenames can also be sent to the 
printer as a permanent record of what 
currently exists on various media. As is 
usual in any pre-programming analysis, 
one of the first tasks was to impose some 
constraints, as follows: 


* The screen displays had to suit television 
sets as well as monitors. 

“ No additional memory or toolkits were 
assumed to be available. 

“ The program had to be brief enough to 
type-in easily; it has fewer than 300 lines 
even when last month’s routines are 
included. 

“ The program had to perform a worth- 
while task. 


The analysis revealed that the program 
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ST ATs MNEOTUM 


HIL_FROGZA 
NJL_PRO 
MJL_FRO 
MIL _PROG: 
MHIL_PROGE 


Print the MJL_PRO 


List? MJL_PRO 
MIL_PROG2 


dynamics would form three distinct levels. 
The first level could be described as being 
“pre-search” in which the display and 
variables are initialised, a search pattern is 
declared and a device chosen, The second 
level is concerned with searching a disc or 
Microdrive for filenames which match the 
declared search pattern. The third level 
concentrates on viewing, printing or delet- 
ing individual files. Only the first level is 
tackled this month — the remaining pair 
occupy about as many program lines 
although they are considerably more 
complex in their logic. 


Hierarchy 


The existence of such a_ hierarchy 
influenced the development of the menu 
structure used throughout the program 
but it was not an appropriate frame on 
which to hang the program design. 
Instead, I used the “building block” 
programming method, sometimes called 
the bottom-up strategy, in contrast to the 
more familiar top-down programming. 

Top-down programming takes the fun- 
damental aim of a program and splits it 


FILLE 


match 

match Wed 
oldmatch 
match Wedd 
newna toh 
neumatcoh_ SAT 
minmatch? 
match glu 


into its major constituents which are, in 
turn, divided and sub-divided to form a 
hierarchy. This process builds a kind of 
pyramid at the base of which are a large 
number of relatively simple routines. One 
difficulty with this design strategy is that 
largely identical requirements might exist 
at two parts of the pyramid which, if we 
are not careful, might result in two 
separate routines being written when one 
could have done. 

The consequences of duplicating rou- 
tines are that the program will be larger 
than necessary, the competing routines 
might confuse the user by being slightly 
inconsistent and the tasks of maintaining 
and improving the code are made more 
difficult. 

The building-block approach can avoid 
those problems by identifying fundamen- 
tal requirements and producing a set of 
general-purpose routines to meet them, 
The advantages are that less code is 
written and the program is likely to be 
more consistent and therefore easier to 
use and to maintain, The disadvantages 
are that general-purpose routines might 
not be ideal for every occasion and their 
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generality might increase their length or 
complexity. 

The building-block approach produces 
not a pyramid of routines but something 
more akin to a diamond with the lower 
point formed from utility procedures 
called from a variety of middle-order 
routines which are linked by the controll- 
ing hierarchy which forms the top point of 
the diamond. 


Compromise 


There is no compunction to usc onc 
programming method to the total exclu- 
sion of another. Programmers need to 
reach their own compromise between the 
purity of top-down programming and the 
utilitarian efficiency of building-block 
programming, The building blocks 
needed by the file-searching program 
handle windows, menus, printing opera- 
tions, file operations, and so on. Some of 
them rely on others; for instance, the 
menu display requires a window ta be 
drawn. The most basic modules were 
therefore developed first and as the more 
complicated modules were added to the 
program it was necessary occasionally to 


Listing 4 


402 MODE 4: WINDOW 512, 256, B, 
4@4 PAPER 2, 4: CLS 


ues S = 3: OPEN#S., con_ 
412 M = 4: OPENAM, con_ 
416 P = 5: OPEN#P, seri 
“ea Fo = 6 

42eu T ae 

u26 Pattern$ = '%*" 

432 Dev¢ = "Pipi" 

436 TempFile$ = "ram1_TempFile” 
440 Medium$ = “ < None >" 


kid Free = ®@: Used = 0 
448 Pattern: Device: Medium 
452 Display: Space: Menu 1 
456 REPeat Loop 

462 Key = Bar_Menu (max) 

464 SELect ON key 


468 = 1: New_Pattern 
472 = 2: New_Device 
u76 = 3. 4 

482 Examine = key -3 
4ay Search_Mode 

488 = 5, @: EXIT Loop 


492 END SELect 
496 END REPeat Loop 


Listing 5 


5@@ DEFine PROCedure 
Xpoe, Ypos, Col, Titles) 


525 WINDOW#ch, ac®&+28, dn*10+24, 


Draw_Wndo (ch, ac, dn, 


adjust them slightly to cope with an 
unexpected situation. 

Building blocks are not just procedure 
and function definitions but also include 
communication channels and major vari- 
ables. Some of them are established in the 
opening lines of the program shown in 
listing four—listings one to three being the 
string matching routines published last 
month. As an aide memoire the channels 
used by the program are identified by a 
letter rather than a digit, as follows: 


S = System, used for displays of system 
information such as the name of the 
current device. 

M = Menu, the window devoted to the 
menu display. 

P = Printer. 

F = File, the channel opened to files saved 
on discs or Microdrives. 

T = Temp file, the channel! opened to the 
temporary file containing the directory of 
the current medium, 


Six global variables are declared. Both 
Pattern$, the search string, and Dev$, the 
current device, can be defined by the user; 
the values shown are the defaults which 


Listing 7 


760 DEFine PROCedure 
785 Draw_Wndo S&S, 


you might wish to change to suit your 
circumstances. TempFile$ is the file used 
to store the directory of the current 
medium. In the listing it is placed on a 
RAM disc but it could as casily be 
renamed “mdv/_TempFile3” or even 
Dev$ & “Temp File$”. The program works 
very quickly with a RAM disc, acceptably 
quickly with a floppy disc and more slowly 
with a Microdrive. 

The values of the final three variables 
are determined by the medium placed in 
the current device. Medium$ is the name 
given to it when it was formatted: the two 
numeric variables hold the amount of 
space on the medium used and the remain- 
ing measured in kilobytes rather than 
sectors. The remainder of the main seg- 
ment calls up the individual displays and 
then activates the main menu. 


Windows 


Most QL software makes full use of the 
multiple display windows available via 
Qdos and this program is no exception, 
even though it could have been designed 
to use only one window. Much of the 
process of defining a window is repetitive 
and so can be placed in a single procedure 


Pattern 
26, 1, 252, 16, 4, "PATTERN" 


7i® PRINT#S, Pattern$ 
715 END DEFine Pattern 


Listing 8 


&@@ DEFine PROCedure 
825 Draw_Wndo 5, 


Device 
1@, 1, 3@, 16, 4, "DEVICE" 


&1@ PRINT#S, Devgs 
815 END DEFine Device 


Listing 


980 DEFine PROCedure 
9@5 Draw_Wndo 5&5, 


Medium 


1@, 1, 14@, 16, 4, "MEDIUM" 


910 PRINT#S, Mediums 
915 END DEFine Medium 


Listing 19 


18@@8 DEFine PROCedure Space 


18@5 Draw_Wndo 5S, 


16, 2, 38, 56, 4, "STATUS" 


1@1@ PRINT#S, TO 4 - LEN(Free)}; Free; "K Free’ 


10815 PRINT#S. TO 4 - LEN(Used); Used; 


"K Used” 


1020 END DEFine Space 


Listing 11 


xpos, Ypos 


1180 DEFine PROCedure Menu (Type) 


510 PAPER#ch, 2, @: INK#ch, 7: CLS#ch 1165 LOCal n, Title$, Col 
515 BORDER#ch,. i, 5 BORDER#ch, 4 1110 WINDOW#M, 128, 146, 28, 188 
520 CSIZEAch, 2, 8; PRINT#ch, Titles LLLS PAPER#M, 2,4,0: CLS#M 
525 WINDOW#ch, ac*¥8+8, dn*18+4, Xpos+6, Ypos+16 1128 IF Type @: RETurn. , 
53@ PAPER#ch, Col: CLS#ech: BORDER#ch, 2 1125 IF Type > 4: Message (Type -4) * 16 
535 CSIZEfecn, 1, @: INK#ch, 7 * (Col <u} 1138 RESTORE 1145 + INT (Type) * 5 
548 END DEFine Draw_Wndo 1135 READ max, Col, Titles 
1140 Draw_Wndo M, 1@, max, 38, 176, Col, Title¢ 
1145 FOR n = 1 TO max: READ af: PRINTAM, af 
115@ DATA cm "MAIN", “Pattern”, "Device", 
"List only", "Examine”™, "Quit" 
Listing 6 1155 DATA 4, &, “DEVICES", "“fipi1", “£1p2_", 
"mdvi_™, “mdiv2_* 
600 DEFine PROCedure Display 11608 DATA 5, 4, "FILE", “Continue”, "View", 
605 Draw_Wndo 1,49,17, 148,56, @, "MEDIUM FILE" "Delete", “"Print™, “Quit” 
610 DIM Media$ (56, 18), File (56, 48) 1165 DATA 2, 7, “‘CONFIRM", “No”, "Yes" 


615 END DEFine Display 
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117@ END DEFine Menu 
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Lieting 12 


1200 DEFine FuNetion 


1265 END REPeat Loop 
1278 END DEFine Bar_Menu 


called with different parameters. Listing 
five takes seven parameters which 
describe the location, dimension, colour, 
tithe and channel for each window. As in 
other SuperBasic programs, the dimen- 
sions of the window are given in terms of 
character positions rather than in pixels. 
A common character size of 8x10 pixels — 
CSize 1,0 — is used throughout the prog- 
ram. 

The window has a thin black border and 
a larger red/black background areca, at the 
top of which is printed the title of the 
window. The print area is then superim- 
posed on the background. The ink colour 
is chosen to give maximum contrast with 
the paper colour. 

All that remains is to define procedures 
to produce the required displays, Listings 
six to 10 perform this task and any changes 
to the layout of the screen can be effected 
by altering the values in the various 
Draw__Wndo statements. 


Odd 


The next three listings are all that is 
necessary to activate the menu system. 
Menu items are highlighted by a bar 
cursor controlled by the up and down 
arrow keys. The highlighted option ts 
selected by pressing either the space bar or 
the Enter key. This type of menu is 
particularly common duc to the increased 
use of mice which can drag the cursor bar 
through a menu list. 

In the original design for the program 
the menu window was a constant size 
which looked slightly odd when it showed 
only two options in an area designed for 
five. The revised routine adjusts the 
window height according to the number of 
menu options. Line 1110 overprints the 
whole menu area with background colour 
to keep the display tidy when a small menu 
follows a larger one. The menu can be 
removed entirely by passing a zero to the 
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Bar_Menu (max} 


1326 = Ss 
1388 END SELect 


1205 LoCal nn, key, Loop 
1218 n = 6 
14 
1215 REPeat Loop He eane 
1228 OVER#M, -1: BLOCK#M, 8@, 198, @, n*12. oa 14U9@ DEFine PROCedure New_Pattern 
1225 key = KEYROW(1): key . CODE (INKEY$ (-1t1} 14@5 LOCal Loop, max, Temp$ 
1238 SLOCKAM, 88, 10, 8, n*1B, 7: OVERAM, 8 1H10 Draw _Wndo S, 26,1, 258,16, 8,"NEW PATTERN” 
ar SELeect ON key 1415 Menu @: INPUT#S, Temps: Menu 4 
aera = 208: n = ¢(n-1) MOD max 142@ IF Bar_Menu (2) = 2: Pattern® = Temp# 
‘one - aa, 32 ee copy es fia pes carbangen ee mere 
= 18, : urn n+ 

14328 D DEFine New_Pattern 
1255 = 27: RETurn 8 32 EN 
126@ END SELect 


Listing 15 


16@0 DEFine PROCedure New_Device 
15@5 LOCal key, at 
Listing 13 151@ Menu 2 
1515 key = Bar_Menu {max} 
1388 DEFine PROCedure Message (Type) 1520 SELect ON key 
1385 Draw_Wndo S, 1@, 3, 38, 108, 7, "MESSAGE" 1525 « Ty Pave = “Fipt_" 
141@ SELeet ON Type 1538 s 2: Deve = “"flp2a_" 
Laie = 1: PRINT#S, “Is "; Bevs 1535 = 3: Dev$ = ‘mdv1l_" 
igi PRINT#S, “ready for” \ "searching?" 1548 = &: Deve = “*ndve.” 
1316 = 2: PRINT#S; "Print the™ \ "List?" 1545 END SELect 
1328 = 3: PRINT#S; "Delete" \ File$(xXj);79" 1558 Device: Menu 1 
1324 = 4: PRINT#HS; "Print \ Files{X) 1555 END DEFine New_Device 


procedure; it is bad practice to display a 
menu which is not available, 

Some menus are self-explanatory, while 
others nced to be placed in context, In this 
program only the “Confirm” menu falls 
into this category; what the user is asked 
to confirm depends on the circumstances. 
A neat way of coping with this require- 
ment without adding an extra parameter 
to the procedure is to use non-integer 
values for Type. 

For normal menus, Type is an integer 
but for the “Confirm” menu Type can be 
4.0, 4.1, 4.2 and so on with the fractional 
value referring to the message to be 
displayed alongside the menu. This is 
controlled in line 1125, which calls the 


“Despite my efforts, 1 
have no system to find 
a file with unerring 
accuracy. I suspect most 
readers, except the 
pathologically neat, are 
in the same position.” 


Message procedure at listing 13. The 
principle can be extended to reduce the 
number of parameters in a varicty of 
procedures. A screen location could be 
described as Spot 25. /2 rather than as Spot 
25, £2: 

The menu remains inert until listing 12 
is called. In this function the cursor bar is 
drawn as a block using the “exclusive or” 
screen mode. Rather than obliterating a 
menu line it reverses the colours to 
highlight it. Different effects can be 
obtained by superimposing a “red” or 
“green” block, although red and green 
might not be the colours obtained. 

After the block is drawn the program 
pauses to detect a keypress, following 
which the cursor bar is removed by 


PRINT#S; 


1399 END DEFine Message 


"Continue™ “\ "listing?" 


overdrawing it, another uscful character- 
istic of the “exclusive or” mode. The bar 
position is controlled by detecting the 
pressing of the up and down cursor keys. 
The use of the modulus operator causes 
the cursor bar to cycle round the options 
when the top or bottom item is reached, If 
the spacebar or Enter key is pressed the 
current location of the cursor is returned 
to the calling statement. The escape key 
returns a valuc of zero. 

The loop at the end of listing four shows 
one way in which a menu is activated, This 
menu can be used repeatedly and so the 
options are contained in a loop. Not all 
menus work like this. In listing 14 the user 
is invited to enter a new search pattern, 
The new pattern is held in a temporary 
variable until the user confirms that it is 
correct. The “Confirm” menu is placed on 
the screen, in this instance with no 
accompanying message, and activated by 
calling the Bar__Menu function in an IF 
statement. If the function returns a 2, 
indicating a “Yes” response, the new 
search pattern replaces the old one. With 
any other value the old search pattern is 
restored, 

Another menu style is demonstrated in 
listing 15. When users choose the 
“Device” option from the main menu this 
procedure displays a list of possible 
devices, which can be altered to reflect 
your computer system. As only one option 
can be chosen the menu Is not contained in 
aloop. | . 

The flexibility of this menu design can 
be increased further by allowing for more 
than one column of options to be dis- 
played and permitting lateral movement 
of the cursor bar using the left and right 
arrow keys. The amendments required to 
listings 11 and 12 are relatively small. 


@ Next month the project will be completed 
by adding the code necessary to read disc 
directories and control program output. 
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ou may have read from time to 

time of the slightly haphazard 

development of the four Psion 

programs, along with hints and 
allusions to a number of features which 
were implemented in the program but 
which never reached the manual. Quill, 
Abacus and Easel, all being menu-driven, 
will do only what they say they do, I 
assume. The programmable nature of 
Archive, however, leaves plenty of odd 
corners for undocumented features. This 
article reveals the details of some of these 
features and provides examples of how to 
use them in Archive programs. 

Version 2.3 Archive includes a range of 
graphics characters in its character set 
which can be sent to the screen either from 
within a PRINT statement, or using 
SEDIT. Figure one shows the characters 
available and where to find them. If you 
wished to print a bottom left-hand corner 
you could say ‘print chr (227)’. Or if in 
SEDIT, you could type the ‘FS’ key 
followed by ‘d’ and the corner would print 
to the screen. What the FS key does is add 
128 to the code value of the next key 
pressed, 

An additional feature is included in 
SEDIT to make the drawing of boxes and 
borders easier. If you press the Shift plus 
any of the four cursor keys the last 
character typed will be repeated in the 
direction of the cursor key pressed. It is a 
pity Psion saw fit to include only a very 
bare minimum of graphics characters for 
drawing straightforward boxes. A little 
more trouble could have provided the full 
range of IBM graphics characters. 
Instead, most other keys produce either a 
vertical line or a cursor-type block. 


Screen driver 


A more significant omission from the 
manual, available on all version 2 prog- 
rams and perhaps even on version 1 for all 
I know, is the ‘screen driver’. Anyone who 
has used a printer will be familiar, at least 
in part, with the printer driver. A vaguely 
similar process has to take place for 
characters to be printed on the screen. 

Just as there are special printer codes 
which do something other than print a 
letter, there are also special screen codes. 


Figure 1 — Archive 2.3 Graphics characters. 


FS Graphics 
followed Character 


a6 +[c74 Fre+— 


Robin 
Stevenson 
delves into 
Archive 

in search 
of more 
features 
undocumented 
in the manual. 


They are all located in the ASCII code 
range 0) to 31, so cannot be typed directly 
from the keyboard. Instead, ‘PRINT 
CHR(X)’ must be used. Some characters 
act as a simple command, e.g., printing 
chr (12) will have the same effect as typing 
CLS — the CLS command causes archive 


ARCHIVE S$ 


to print chr(12) to the screen. 

Other characters require one or more 
‘parameters’. They are other characters 
whose purpose 1s not to print a letter but to 
carry a value. For example, chr(9) pro- 
vides a TAB function but to use it you 
must also send a further character, spe- 
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cifying the column to which you wish to 
tabulate. If this is, say. column 65 you 
would print chr(9)+chr(65). Chr(65) is 
the letter ‘A* but in this context that is 
irrelevant; “Archive is interested only in 
its ASCIT value. Having read the required 
number of parameters the screen driver 
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will interpret any other following charac- 
ters as letters, or as other screen com- 
mands, depending on thcir value. 

The full list of screen driver commands 
Is: 


chr(1) Set ink colour 1 parameter ~ in 
colour 

chr(2) Set paper colour 1 parameter — 
paper colour 


These two look at the first three bits of the 
character for the colour, i.e., chr(0-7). It 
should be possible to save the existing 
colour by setting bit 7 (add 127 to colour 
number), and restore a saved colour with 
chr(64) but this appears not to work. 


chr(19) Delete one character to left — no 
parameters 
chr(20) Define window area 4 parameters 
— line and column numbers, for top left 
inclusive, and bottom right exclusive 
chr(21) Scroll screen window up 1 para- 
meter — No. of lines to scroll 
chr(22) Scroll screen window down 1 
parameter — No. of lines to scroll 
Unfortunately a bug prevents the win- 
dow scrolling down more than 1 line. 
chr(23) Pan screen window to right 1 
parameter — No. of column to pan 
chr(24) Pan screen window to left 1 
parameter No. of columns to pan 
chr(25) Boundary characteristics | para- 
meter — sce table in figure 2. 


Figure 2. Boundary wrap characteristics. 


Chr(25) determines how the window behaves when the text reaches the edges 
of the window. The parameter to follow chr(25) can be calculated from this 


table. 

| 2 3 
Boundary 
Bottom 
Top 
Right 
Left 


Action if set 
Scroll up 
Scroll down 
Wrap around 
Wrap around 


No Action 


Right 
Left 


Toroidal 
Toroidal 


4 5 
Action if clear 
No scroll up 
No scroll down 
No wrap around 
No wrap around 


Value to set bit 


Progressive 3 
Progressive 64 


Bits 5 and 6, as numbered in column 1, determine how text will wrap round 
at the end of a line, either continuing on the same line or progressing to the 
next. They apply only if you also set bits 2 and 3 respectively. To calculate the 
character value, add together the value from column 5 or any bit you wish to 
Ssct., ¢.g., to set bits 0, 2 and 5. leaving the others clear would be 1+4+32 = 
chr(37). Using CLS will re-set the screen to its default values, which are bits 0, 
1, 2 and 3 set, and the others clear. 


Instead chr (64) sets paper to 0, or in to 7, 
when uscd. 


chr(4) Repeat characters 2 parameters — 
the character required and the number of 
repetitions. 
chr(S) Toggle underline on/off no para- 
meters 
chr(6) Move cursor one column right no 
parameters 
chr(8) Move cursor one column left — no 
parameters 
chr(9) Tab cursor | parameter — the 
required column No. 
chr(10) Move cursor down one line — no 
parameters 
chr(11) Move cursor up one line — no 
parameters 
chr(12) Clear screen window — no para- 
meters 
chr(13) Move cursor to left side — no 
parameters 
chr(14) Switch cursor on — no parameters 
chr(15) Switch cursor off — no parameters 
chr(18) Select screen display type | para- 
meter 
Parameter chr(0) — Normal ink and 
paper characteristics. 
Parameter chr(1)— Overprint—current 
ink, with ‘transparent’ paper. 
Parameter chr(2} — Exclusive-or of the 
character and existing display. 


chr(26) Swap ink and paper colours no 
parameters 
chr(27)) Escape eode, followed by letter: 
A: Clears window from cursor to end of 
line; B: Clears window from cursor to end 
of window; C: Saves the current cursor 
position; D: Restores cursor of 
previously-saved position; E: Scroll win- 
dow up one from top to cursor line; F: 
Scroll window up one from bottom to 
cursor line; G: Scroll window down one 
from top to cursor line; H: Scroll window 
down one from bottom to cursor line; 
chr(28) Combined CR and LF —- no 
parameters 
chr(29) Pass through | parameter — which 
is sent to screen, instead of being proces- 
sed by the screen driver. This would be 
useful only if there were also graphics 
characters in the 0 to 31 range. 


chr(30) Move cursor to top left — no 
parameters 

chr(31) Position the cursor 2 parameters - 
the column and line co-ordinates 
required, the other way round from the 
‘AT’ command. 


The range of programming possibilities 
offered by the screen driver is enormous. 
It provides the building blocks for almost 
any screen control you may require, 
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though not very friendly ones it must be 
admitted. It is not completely finished 
code, either. Characters 3, 16 and 17 are 
not in this list and perform no discernable 
function, yet they generate an error if they 
do not have a parameter sent with them. 
More seriously. if you send the escape 
code, chr(27), with any letter other than 


the eight listed Archive will hang and you 
will have to re-set the OL, with possibly 
disastrous consequences for any files left 
open. 

Examples of how to use some of the 
features in the screen driver are provided 
in figure three. Proc window is a way to 


friendly. The a and b parameters are the 
width and depth of the required window, 
with x and y as the column and line 
numbers of the top left-hand corner. It is 
used like the SuperBasic window com- 
mand but using character co-ordinates 
instead of pixels. 

To use the whole screen, use WIN- 


make the windowing facility a little more 


Type in the program as shown (you can leave out any REM statements), and save it as “demo”. You can see the demonstration by 
typing RUN “demo”, or having loaded it, by typing START. 


proc effects 
rem example title screen, using logo and window features 
local wl,w2: let wl=0: let w2=0: mode 1,8 : 
print at 12,5;rept("M",30); at 3,45;rept("M", 30) 
print at 12,5;chr(18)+chr(2);rept("V",30); at 3,45;rept("V", 30) ;chr(18)+chr(0) 
while wl<60 
window;15,5,wl+5,w2: print logo$ 
let wl=wl+0.2+sqr(wl): let w2=w2+1 
endwhile :window;80,25,0,0 
input at 23,30;"Press ENTER to continue ";temp$: paper 2: let wl=l 
while w<15: print chr(21)+chr(2);chr(23)+chr(2);: paper 0 
let wl=wl+1l: endwhile 
endproc 
proc logo 
rem String variable, logoS, prints itself in top left of window. 
rem Ink and paper and cursor position are then reset. 
local x,y: let x=3: let y=0:rem x,y are co-ordinates for top right corner 
let logo$=chr (15)+chr(27)+"C"+chr (31)+chr(x)+chr(y) 
let logo$=logo$+chr (2)+chr(128)+chr(1)+chr(132)+chr (234) 
let logo$=logo$+chr (4)+chr (231)+chr(10)+chr (226 )+chr (31)+chr(x)+chr(y+1) 
let logo$=logo$+chr(224)+" YOUR OWN "+chr(224)+chr(31)+chr(x)+chr (y+2) 
let logo$=logo$t+chr(224)+" "+chr(26)+" LOGO "t+chr(26)+" "+tchr(224) 
let logo$=logo$+chr (31)+chr (x)+chr (y+3)+chr (227 )+chr (4)+chr (231)+chr(10) 
let logo$=logo$+chr (233)+chr (1)+chr (64)+chr (2)+chr(64)+chr(27)+"D" 
endproc 
proc sampleprint ;toprinter 
rem Use sampleprint;l to send to printer, or sampleprint;0 for screen. 
local gr$,m:rem gr$ contains the graphics characters, m is the required margin 
if toprinter 
spooloff : let gr$=chr(179)+chr(180)+chr(191)+chr(192)+chr(193)+chr(194) 
let gr$=gr$+chr (195)+chr (196)+chr (197)+chr(217)+chr (218) 
let m=10: lprint rept(chr(10),8): else 
let gr$=chr (224)+chr (225)+chr (226)+chr (227 )+chr (228 )+chr (229 )+chr (230) 
let. gr$=gr$+chr (231)+chr (232)+chr (233)+chr (234) 
spoolon screen : let m0: endif 
lIprint tab m+40;gr$(11)+rept (gr$(8),13)+gr$(3) 
lprint tab m30;" Our ref ";gr$(1)+" X257 - 0"; tab m+54;gr$(1) 
lprint tab m40;gr$(7)+rept(gr$(8),13)+gr$(2) 
lprint tab m;date(1); tab m30;"Your ref ";gr$(1)+" RS36"; tab mt+54;gr$(1) 
lprint tab m+40;gr$(4)+rept(gr$(8),13)+gr$(10): lprint 
lprint tab m20;chr(16)+chr(5)+chr(5);"DELIVERY NOTE";chr(16)+chr(5)+chr(5) 
lprint : lprint tab m;"Code ";gr$(1);" Item "; tab m+47;gr$(1);" Quantity" 
lprint tab m;rept(gr$(8),5);gr$(9) ;rept(gr$(8) ,41);gr$(9) ;rept (gr$(8) ,9) 
lprint tab m5;gr$(1); tab m+47;gr$(1) 
lprint tab m;num(345,5);gr$(1);" Left handed Grommets"; tab m47;gr$(1);num(6,8); 
if toprinter: lprint chr(12);: endif : spooloff 
endproc } 
proc start 
rem demo program to illustrate screen driver & graphics characters. 
logo:effects: mode 1,8 
paper 4: print chr(12);logoS; 
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window;60,15,16,1: paper 2: cls 
window;58,13,17,2 
paper 0: print chr(12); at 12,0 
sampleprint ;0 
print logo$; 


endproc 
proc window;a,b,x,y 


rem a=width, b=height, x,y are co-ordinates of top right corner. 
print chr(20)+chr(x)+chr(y)+chr(atx)+chr (bty); 


endproc 


DOW; 80,25,0,0. Using the ‘MODE’ 
command will re-set the window accord- 
ingly, as will using EDIT. One feature of 
the window facility when using the full 
screen area is making the trace command 
rather more friendly. If you use MODE 
0,8 the program tracings occur wherever 
the cursor happens to be. If, on the other 
hand, you set MODE 1,8 and then re-size 
the window to 80,25,0,0 you have access 
to the full screen area but the tracings 
contain themselves in the bottom three 
lines. 

Another procedure in figure three is 
proc logo. It puts a string of characters, a 
mix of screen driver instructions and 
printing characters into the variable 
‘logo$’. Having called logo once you can 
maintain your personalised logo, in its 
own little box, in the top left corner of the 
screen, or wherever you choose to posi- 
tion it, by printing ‘logo$;’ at suitable 
points in the program. It will draw the logo 
in the top left corner of the currently- 
defined window, whatever else happens to 
the screen, and leave the cursor back from 
where it came. 

Proc effects is a procedure which uses 
both the Window and Logo features, plus 
a number of other screen driver controls 
to demonstrate a range of screen effects. 
The result might serve as a title screen, 


perhaps. Proc sampleprint provides an 
example of a report, using the graphics 
characters, which can be sent to the screen 
or to a dot matrix printer. Version 2.00 
Archive users will get rather clumsy wide 
borders instead of neat lines and boxes 
intended. Provided your printer uses the 
Epson graphics character set it will still 
print on to the page correctly, This 
method of translating from within a 
procedure is necessary because the printer 
driver does not provide sufficient trans- 
lates to convert them all from the printer 
driver. 


Printer driver 


On the subject of the printer driver, 
there are ways of using some of its features 
which do not occur in the manual. The 
translate features are easily understood. 
When you LPRINT a particular charac- 
ter, e.g., chr(96), the printer driver trans- 
lates this into something your printer 
understands, such as a pound sign. What is 
not realised so widely is that all the other 
printer driver features behave in the same 
way, except that they use non-printing 
characters, just like the screen driver. 
Well, almost like the screen driver. Unfor- 
tunately, with two exceptions, the codes 
and their meanings are different. 

Thus chr(10) will generate the End of Line 


Figure 4: A short program to make the sample outputs screen-visible. 


proc aa 


code; chr(15) will toggle between Bold on 
the Bold off; chr(16) does the same for 
Underline; chr(17) for Subscript; chr(18) 
for Superscript; chr(26) generates the 
Postamble code, and chr(29) the Pream- 
ble code. 

The two exceptions are chr(12) and 
chr(9). The first gives the nearest thing a 
printer can get to clearing the screen, 
which is a new sheet of paper. It sends 
sufficient end-of-line codes to fill the page 
length but if you are not using continuous 
paper gives a prompt for a new sheet of 
paper, on the screen as well. Chr(9) ts the 
tab function and, as with the screen driver, 
needs a further character to indicate how 
far to tabulate. Archive then generates 
sufficient spaces to reach that column and 
sends them to the printer. One final point, 
which is documented by Psion, is the 
printer driver ‘pass through’ character 
which is chr(0). If you wish to send control 
codes directly to your printer, instead of 
via the printer driver, each character must 
be preceded by a chr(0). 

The screen and printer driver features 
described give far greater control over any 
output from Archive and help the prog- 
rammer enormously with the presentation 
of information, both on screen and on 
paper. What a pity Psion did not tell us all 
about it at the start. 


REM Procedures using chr() to create a window and a logo. 


endproc 
proc logo 


local x,y: let ¥=51: Jet y=@ 
let logo$=chr(15)4chr(27)4+"C"+chr(31)+chr(x)+chr(y)4chr(2)4chr(128)4+chr(1)4chr 


(132) +chr(234)+chr(4)+cehr(231)+chr(18)+chr(226)+chr(31) 


let logog=logo$4chr(x)+chr(y41)+chr(224)}+" YOUR OWN “+chr(224)4chr(31)4chr(x)+ 


chr(y+2)+chr(224)+" “+chr(26)+" 


LOGO 


"tohr(26)+" “tehr(224) 


let logo$=logo$+chr(31)4chr(x)+chr(y+3)4chr(227)4+chr(4)4+chr(231)+chr(1@)4+chr(2 
33) 4+ehr(1)+chr(64)+chr(2)}4+cehr(64)+chr(27)+"D" 


endproc 

proc start 
mode @,8 
paper 7: cls 
window; 89,14,@,6 
Paper 2: ink 4 
cls 
logo 
print logo¢ 
endproc 

proc window;a,b,x,y 


print chr(20)+chr(x)+chr(y)4chr(atx}+chr(bty) 


paper 2: els 
endproc 
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ne of the main costs 

of using a computer 

printer is replacing 

the ribbon at fre- 
quent intervals to make sure 
that copy is dense and read- 
able. This is more important 
when using DTP or similar 
programs which — utilise 
graphics dumps to avoid a 
streaky appearance, 

My experience has been that 
the ribbon will always fade 
halfway through an important 
printout and that the ‘new’ 
cartridge you have just bought 
is either of a different coloured 
ink or no better than the old, 
exhausted one. At best it lasts 
only for about four pages. 


Horror stories 


A re-inking service has been 
tried which gives good results 
provided you can remember to 
pad the envelope sufficiently to 
prevent heavy Post Office rol- 
lers smashing the contents, 

If someone clse can re-ink 
the ribbon why can it not be a 
DIY job? It can be done easily. 
In mentioning this to the 
‘experts’, tales were told of 
printhcads being damaged, 
special inks being needed and 


RE-INKING 


Dennis Briggs says that you 
can re-ink ribbons yourself. 


Epson LX 8@ printer cartridae 


Fit sponge here. 


Ime hole aver 
each sponge, 


Spring. 


x 


XY 
- fibboa path, 


> Drive rollers. 


Ribbon chasser, 


all kinds of horror stories but 
none of the ‘experts’ admitted 
to having tried it. 

I tricd it using ordinary 
stamp-pad ink at 75 pence per 
bottle with three cartridges 
used in rotation. In four years 
of heavy use, to the extent that 
one ribbon had a hole worn in 
it, perfect results are ensured at 


NTension spring, 


printout every time. To do the 
modification it is necessary to 
ease the top from the cartridge 
casing very gently so that the 
locating pins are not damaged. 
With the top off, as per dia- 
gram, fit two pieces of foam 
sponge in the spaces provided 
so that the ribbon makes good 
contact with them. One picce 


of sponge as the ink reservoir is 
a minimum with a further piece 
at the ribbon exit to wipe away 
any surplus. 


Perfect results 


A small hole over one of the 
sponges will permit the ink to 
be injected with a small 
syringe; 0.5mil of ink appears 
to be Just about correct. 

If you feed in too much ink it 
will run out and make a mess or 
it will make a mess of your 
printouts. If you feed in the 
ink, then run the ribbon 
through before leaving it over- 
night for the liquid to dry, 
perfect results are achieved. 
This is why | advocate the use 
of two or three cartridges. 

For the colour-conscious, 
you can have green, brown, red 
or white printouts at the ready. 
What is the use of white ink? 
Have you never heard of black 
paper? It certainly gets you 
noticed. 

I have not worked out the 
cost of re-inking this way accu- 
ratcly but is less than two 
pence. The cost is not the 
criterion really — it is the 
convenience together with the 
superb results. 


fp — he —_ ronal vh 


QL SUPERTOOLKIT Il by Tony Tebby 
THE ULTIMATE OL ENHANCEMENT. 


Over 118 Commands :— Full Screen Editor, Key Define Print Using, 
Last Line Recall, Altkey, Job Control, File Handling, Default Director- 
ies, Extended Network. 

16k Eprom Cartridge Version (WE 24.15d 
Configurable Version on Microdrive ... » @e 23.00d 


MIRACLE SYSTEMS PRODUCTS 


QLExpanderam Ok board, fit your own drams. Offar open only while 


stocks last ...... € 23.00d 
OL Trump Card 768k (Toolkit fetch .. fa £259,90b 
OL Trump Card 512k (Toolkit lletc} .. .. 4 £213.90b 
OL Trump Card 256k (Toolkit Il etc} » GF £149,50b 
CL Expanderam 512k Thru Card .. £133.40b 
QL Expanderam 256k Thru Card f4€ 80.50b 
Drams to suit above 41256/16 .......... (et 6,90 
OK Disc Interface {inc talk itto) .. ME 99.82b 
OL Centronies Printer Interface .. » @E 28.75 
OL Modaptor... fa € 37.95d 


QL HARDWARE 


Single 3.5* Disc Drive & {Own PSU (ef 97.75a 
Dual 3.5" Disc Drive & (Own PSU} » (£188,602 
© POWER REG. The only real sol nm to your OL overheating 


{switched mode power supply run cold) -.. 
QL Keyboard Membrane . ey 
OEP Ill Advanced Eprom Programmer oi 
Care Eprom Cartridges each , 
Eprom 27128 250n/s 16k ..... 
ULACHip 2X8301 


- @E 23.00 


MAGNETIC M 


Microdrives leach} .. @E£ 2.07 
3.5" feach! dis disc ,,...... iE 1.61¢ 
3.5 10ofl d/sdises .. .@£ 13.80¢ 


SOFTWARE 87 (State MDV or Disc) 


TEXT 87 V.2.00 @£ 45.00d 
FOUNTEDBS....... iene ‘ . @eé 15,00¢ 
FOUNTERT 88 22. ccs osav incor 


f@E 25.00c 

TEXT B7/FOUNTED 89/FOUNTEXT 88 w@E 79.00b 

2488 PRINTER DRIVER scebiatuaveaaaiitsin @£ 15.00c 
HOW TO ORDER: ALL PRICES INCLUDE VAT 


By Post, Enclose your Cheque/PO made payable to CARE Electronics. 
Or use ACCESS /VISA. Allow 7 days for delivery 


MT LT a a a a a 


TONY TEBBY SOFTWARE (QJUMP) 


QPAC || new from the house of QJump, a totally new version of 
QRAM and OPAC. Available soon 
Please phone for further details 


QFLP (Micro/P disc interface upgrade) —...020. ee 14,950 
QMON II Microdriva .........022...eceecreteernrereenn : wfr£ 19.950 
QMED (Medic disc interface upgrade) . see lV E 14.958 
QPTR Pointer Interface midrive ....... @fé 34,500 
QPTR Pointer Interface + 3.5" disc ...... faf 29.90d 
QTYP Type/Spell Checker taf 29,90d 
ZITASOFT SOFTWARE by Steve Jones 
LOCKSMITHE capies M/DRIVE —MIDRIVE ...ccceerecere @£ 11,50e 


4MATTER ~ LOCKSMITH copies M/DRIVE — DISC ...........@£ 23.00 
The above programs are not for use in the UK 
SHAIVEL memory shrink prog user definable ie 128k or 192k or 256k 


BIC ess vee OE 6,90 
TOOLCHEST Utilities to allow the creation of customised mdy doctor 
prog.---....-- ww 11,50¢ 


HEAT TRANSFER RIBBONS 


Print your own T-shirt Design. Colour or black and white, Please 
phone for details and prices 


SIDEWINDER - High resolution printer driver prints full screens 
or parts of screens from postage stamp size to large banners. 
Prints sideways, invert, scale, mirror, text insertion. (£ 17.25¢ 


SIDEWINDER PLUS - {for expanded QL’s) includes ail the 


features of above, PLUS multiple tabel printing, desktop 
publishing files and printer driver for 24’ pin plus LC10 and 3 « 80 
, colour printers, (Please state 3.5" disc or Uiehs: (@E 23,00 
Upgrade to Sidewinder Plus... » WE 8.05¢ 


MONITORS (Price including lead) 


Philips 8M7502 Green Hi-Res -....... .@£ 89.934 
Philips CM8833 Colour Med- Res ennai £271,418 
Philips AV7300 TV/tuner for above . @E 69.00b 


READYMADE LEADS 


AGBOLtoPhono .. §.75¢ 
AGB8-6 pin DIN.........-- = 7.13 
RGB 8-7 pin DIN (Hitachi) 7.13¢ 
RGB 8-7 pin DIN (Ferguson) .... 7,13¢ 
RGB S pinto SCART (Euro) a 11.506 
6-wayPCC way ’D' (Printer-Ser1) 98a 


i OPEN 


(ny) 9am-5pm Mon-Thu 
9am-4pm Fri 


800 ST ALBANS ROAD, 
GARSTON, WATFORD, 
HERTS. WD2-6NL. 
Tel; 0923-672102 


Q POWER 
REGULATOR 


NEW 


SIDEWINDER 


Please add carriage 
a=£11.50 6=3.45 
e=£1,38 d=£2.30 


sa / 
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——— DREAMLANDS 


although some are more 
friendly than others. The range 


B1989 Jean-Yves Rouffiac 


Welcome... 


You find yourself standing atop a tall circular pillar which is some 380 
netres high. Southvord is a great forest,eustuard o grey seauestuord tol 
mountains,and northvard a green hilly country.A stairvay winds down around 


the pillar, 


Clouds drift slevly across the skies, 


There is a tattered note and some strong rope here, 


Sead note 


It pends: The Forest Queen needs your help. 


dget rope 


ANONNMINIIN MIN NINN NINA NAINA NII 


INFORMATION: 
Program: Dreamlands; 
needs min. 250K memory. 


Price: £8, disc only. 
Supplier: CGH Services, 
Cwm Gwen Hall, Pencader, 
Dyfed, Cymru SA39 9HA. 


reamlands, written 
by Jean-Yves Rouf- 
fiac, is the latest and 
also the biggest in a 
line of new adventures to be 
released for the QL by CGH 
Services. Because of its size, a 
minimum of 256K memory is 
required, although the use of 
text compression techniques 
might have enabled the adven- 
ture to fit unexpanded QLs. 
The adventure is set in a 
fantasy world entered by the 
medium of sleep, where you 
can live out your dreams and 
forget about those everyday 
problems. As the manual 
informs you, this time you 
seem to have got stuck and 
must complete several tasks to 
help people before you can 
return home. 
When you first arrive in this 
world you are dressed only ina 
shirt and trousers — as with 
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normal dreams, you forgot to 
put on shoes — at the top of a 
very tall pillar, with only a 
tattered note and some rope 
for company. The note tells 
you that you must help the 
Forest Queen but gives no 
suggestions as to the type of 
help she needs. 

Finding the Queen is not 
easy, since she is hidden in the 
middie of a maze. Luckily, 
however, the mazes in the 
adventure do not seem too 
difficult, since they contain 
very few locations. This is a 
good point since it means that 
you do not waste a good deal 
of time having to map out a 
huge maze and find your way 
through it several times. 


Get talking 


Once you reach the Queen 
you need to talk to her and find 
what her problem is. Talking to 
characters in the adventure is 
no problem, since you use the 
command ‘Talk to xxx’ and 
they will respond and normally 
tell you something to help in 
your quest. 

There are plenty of charac- 
ters in this dream world, 


of characters includes the 
Queen, a vain dragon, a 
greedy troll and a lovable 
chick. Most of the characters 
will reveal to you a further sub- 
plot which you must solve 
before you can help the Forest 
Queen. 

The place descriptions are 
adequate but are certainly not 
elaborate in their detail. You 
can examine most if not all 
objects you find on your travels 
but do not expect to get too 
many hints about their use in 
this way, since many of the 
descriptions seem _— rather 
pedantic, detailing merely their 
physical appearance; for 
example, examining the tall 
tower at the start gives the 
answer ‘it is VERY tall’. 

The range of problems is 
very wide, with a few which are 
relatively simple for seasoned 
adventurers, such as how to 
cross a river with only a rope 
and a tree on either bank. 


FITWARE FILE 


very quickly to typed-in com- 
mands. The parser seems to 
have a very good range of 
vocabulary, although it is a pity 
it cannot recognise upper- 
case. 


Whole word 


There are one or two minor 
complaints | have about the 
program. It is almost always 
necessary to type-in the whole 
word for objects, which can be 
a little annoying, although the 
ability to refer to previous 
objects by ‘it’ and ‘them’ is a 
help. Although the user inter- 
face for saving and loading is 
very good, presenting a pop- 
up screen and allowing for the 
use of Microdrives, discs and 
RAM drives by the press of a 
key, itis a pity the screen is not 
restored — in V9.8 — and that 
there is no over-write option. 

Overall, the game seems to 
have been very well written, 
with no real bugs | could find 
and is certainly set to keep you 


Rich Mellor follows the fate 
of those who get caught 

in the land of sleep. He 
finds that it is easy to meet 
your death, but also easy to 
save yourself. 


There are also several more 
difficult problems, such as how 
to get items from the top of a 
tower whose stairs will bear no 
weight other than your own. 
The problems seem to have 
been very well thought out, 
with a logical solution to them 
all, and will certainly keep your 
interest beyond a few hours at 
the computer keyboard. 

The adventure seems very 
large. | have visited more than 
100 locations and yet have 
managed to complete only 30 
percent of the game. The size 
of the game does not slow 
progress since it is compiled 
with QLiberator and responds 


entertained for many hours. 
Some graphics would have 
added to the addictiveness of 
the adventure, although that 
would only add to its already 
very large memory require- 
ments. There are many ways 
in which you can meet your 
death in this fantasy world but 
the ease of saving, plus the 
ability to choose your own file 
name for saved games, means 
that it is easy to save different 
positions to which to return if 
anything happens. It is excel- 
lent value and | would recom- 
mend it to anyone who is even 
Slightly interested in adven- 
tures. 
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Each month Simon Goodwin 
boosts QL SuperBasic with new 
commands and functions. 

This month he adds dynamic 
memory allocation. 


Extra Treat 


We have an extra treat this 
month, in the shape of a small 
program from Austria which 
alters the Psion version 2 QL 
programs so that they display a 
cursor when loaded. The techni- 
que is not so versatile as Task- 
force and it is for you to protect 
memory from Psion before load- 
ing, if need be, but it means you 
can multi-task Quill, Archive, 
Abacus and Easel with a standard 
EXEC command; there is no need 
for any control program, whether 
Basic or machine code, once the 
tasks have been ‘patched’. 

The ‘patch’ program in listing 
one was written by QL World 
reader Peter Postle of Vienna. It 
has been tested on versions 2.0 
and 2.3 of the Psion programs. 
The program uses my SCROLL 
discovery, from the February OL 
World, to wind through the first 
part of the task code, depositing 
new and changed instructions 
which turn on a cursor in the main 
task window. 

The new code becomes an 
integral part of the task and does 


100 REMark PSION PATCH (C) P.Fost!], Viera, 


110 RESTORE 


13G OFEN #3,9$ 


146 REPeat mdv_wait : IF PEEK(i64078)=6 : 
150 SCROLL #3,42,42 : REMark Set file pointer 


160 byteS=CODE (INKEYS (#3,-1)) 
2 TF byted< 2216 
SCROLL #3,0,42 : REMark 


SCROLL #3,40,42 : REMar} 
3 FOF n=40 TO 43 
SEND IF 


CLS : PRINT "Patch for FPsiun ve 
120 INFUT “Enter drive & file name of FPsiunm c 


not increase the file length. The 
only difference is that you can load 
the task with EXEC, rather than 
EXEC__W, and swap into or out 
of it with Control C. Shift F5 
redraws the Psion screen. 

Listing one is simple and easy to 
enter but it performs few checks. 
It is for you to make sure you have 
supplied an appropriate task name 
—Quill, Archive, Abacus or Easel. 
We have not been able to try it on 
version 2.35 but it should work 
unless Psion changed the format 
of the start of the files for that 
version, which is unlikely but 
possible. The patch works with 
Archive and Archder 2.38. 

The patch will not work with 
other task files, compiled Basic 
applications or tasks which have 
been bloated by the ORAM ‘grab- 
ber’. It links into the specific 
pattern of code at the start of the 
Psion packages. If in doubt, save 
any important information before 
EXECing a patched task. It is wise 
to patch a back-up copy of the file 
rather than your master. Ensure 
that the driver you are using is not 
write-protected or the program 
will not work. 


ise 


apy P"'ps 


EXIT mdv_wait 


Set file puvuinter to start 


FOR n=6 TO 15 = READ byte 


PRINT #3, CHR (byte) $ 
Fatch call at byte 40 


> 2 READ byte 2 PRINT #3, CHRS (byte) 5 
REMark Don*t patch more than once! 
CLOSE #3 : PRINT p%$s" patched. Load with EXEC “sp 


DATA 96,12,43,72,byteS, byted, 118, 255,112 
DATA 14,78, 47,78, 117,48, 50, 78, 186, 255, 216 


oftware.’ 


to byte 42 
byteS=CODE CINKEVS(#S,-1)) 


his column introduces code to 

handle the ‘common heap’ — an 

area of memory shared between 

tasks and the QL operating 
system. Such commands have been inclu- 
ded in toolkits previously but the DIY 
variants have exceptional and convenient 
tricks up their sleeves. You should still be 
aware of the potential pitfalls of the heap 
allocation scheme, which I shall discuss in 
detail later. 

This month’s DIY Toolkit commands 
are called RESERVE, DISCARD and 
LINKUP. RESERVE is a little like 
RESPR, in that is is a function which 
returns the address of an area or reserved 
memory. RESERVE has many advanta- 
ges over RESPR. It works while tasks are 
running, when RESPR reports ‘not com- 
plete’. If there is not sufficient memory 
available it returns a standard error code, 
without stopping the program, so prog- 
rams can report the problem or side-stop it 
automatically. 

You can specify the task which owns the 
memory allocated with RESERVE, so 
that the space is released when the task 
stops, or make it permanent if you want 
reserved memory to be shared between 
several tasks. Unlike the SuperToolkit 
ALCHP. the allocation persists even if 
you load a new SuperBasic program, so 
you can RESERVE memory for fonts in 
standard Basic windows or code or data 
which must remain resident. 

If you allocate memory with RESPR 
there is no way to reclaim it without re- 
setting the QL but the DIY commands are 
not that possessive. DISCARD can 
release any memory allocated with 
RESERVE. Thus you can un-RESPR 
memory when you no longer need it, 
Unlike the Turbo Toolkit DEALLO- 
CATE, DISCARD checks that the mem- 
ory was grabbed with RESERVE in the 
first place and resists the temptation to 
erash the machine if given the incorrect 
address or an address which has already 
been discarded, 

DISCARD is a command which takes a 
single address parameter, The parameter 
must be a value which was returned by 
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RESERVE. Absent, odd, negative or 
extra parameters cause the standard ‘bad 
parameter’ report, while DISCARD com- 
plains ‘not found’ if the nominated 
address is superficially satisfactory but 
does not correspond to the start of a 
currently-reserved area. 

RESERVE is a function which takes 
two numeric parameters. The first is the 
number of bytes to be reserved, anything 
from 1 upwards, and the second is the long 
word identifier of the task which will own 
the memory. The most common. task 
identifiers are 0, to make space owned by 
the permanent task SuperBasic, and —1, 
so that the space is owned by the ‘current 
task’ and is released automatically when a 
compiled program terminates or is 
removed. 

These are the commands a task would 
use to allocate a buffer of 12K bytes of 
memory and then release it: 


buffer=RESERVE(i024*12, —1) 
IF buffer »>=0 : DISCARD buffer 


If all is well, RESERVE returns the 
address of an area of memory. If there is 
insufficient free memory at the time of the 


call it returns the conventional ‘out of 
memory’ code —3. If your chosen owner 


task does not exist the code returned is — 
2. Nonsensical parameters cause the usual 
‘bad parameters’ or ‘error in expression’ 
reports, 

It is useful to be able to trap task and 
memory errors because there is no way to 
be sure of avoiding them on a multi- 
tasking system. A task can check the 
amount of free memory with PEEKs or a 
system call but the information is out of 
date as soon as it has been read. Other 
tasks may stop or grab memory at any 
time, so the only way you can be sure an 
operation is workable is by performing it. 
Test the value returned from RESERVE. 
Do not assume it is positive or your 
programs may sometimes fail myste- 
riously. 

The LINKUP command is a logical 
extension of RESERVE which loads a 
code file into memory at any time, linking 
it permanently into the system, Normally 
extension code, such as Toolkit com- 
mands or new devices like MEM or RAM 
discs, must be loaded into RESPR mem- 
ory before any tasks are running. This 
process involves several steps, including 
finding the code size, allocating memory, 
loading and calling the code. 

SuperToolkit includes an unpronounce- 
able but useful command LRESPR, which 
loads and calls the start of an extension 
code file in one fell swoop. Unfortunately 
it uses RESPR internally, so it will not 
work while tasks are running, which can 
be bad» news if you are in the middle of 
using a task and realise you need a new 
command or device. 

LINKUP works like LRESPR but uses 
permanent ‘command heap’ memory, soit 
can run at any time. The name LALCHP 
might seem more suitable to dichard 
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REMark Sinclair OL World HEX LOADER 
REMark by Marcus Jeffery & Simon N Goodwin 


CLS: RESTORE : READ space: star t=RESPR(space? 
PRINT “Loading Hex..." : HEX_LOAD start 

INFUT “Save to file..."3f% 

SBYTES %,start,byte : STOP 


DEFine FuNction DECIMAL (x) 
RETurn CODE (h$ (x) )—-4B-7# (hE Cx SO") 
END DEFine DECIMAL 


DEFine PROCedure HEX _LOAD(start) 
byte = 0 : checksum = QO 
REFeat load_hex_digits 
READ hs 
IF nhe="*" > EXIT load_hex_digits 
IF LEN(hS) MOD 2 
FRINT"Gdd number of hex digits in: "$h% 
STOP 
END IF 
FOR b = 1 TO LEN(hS) STEF 2 
hb = DECIMAL (b) = lb = DECIMAL (b+1) 
IF hb<O OR hb>1iS OR 1b<6 OR 1be15S 
PRINT"“Tllegal hex digit in: “sh : STOP 
END IF 
POKE start+byte, 16*#hb+lb 
checksum = checksum + 16*#hb + 1b 
byte = byte + 1 
END FOR b 
END REFeat load _hex_digits 
READ check 
IF check <> checksum 
PRINT"Checksum incorrect. Recheck data.":STOP 
END IF 
PRINT"Checksum correct, data entered at: “jstart 
END DEFine HEX_LOAD 


REMark Space requirements for the machine code 
DATA 318 


REMark Machine code data 

DATA "43FA011634790000", "01104ED2347906000" 
DATA "01164E92666C5343", "6666204972FF7601" 
DATA "4E4470014E424A80", "6658225674407 6FF" 
DATA "4E4470474E434A80", "663022562231 E800" 
DATA “70F10608010000662E", "2801284874007018" 
DATA "4E41488066202248", "2404C14C076FF 7048" 
DATA “4E4344806B067002", "4E424ED42E00204C6" 
DATA "70194E4160G22E00", "70024E4220074E75" 
DATA "7GF14E7534790000", "G1184E9266F 45343" 
DATA "S66EE2231E8006BRE8", “OBO1G00G66E 220641" 
DATA “0CA0427566616704", "7OF94E75429870i19" 
DATA "4E414E7534790000",,"61184E924646C045543" 
DATA "S6BE2231EB006FB8", "24316E80454892D49" 
DATA “005870184E414A860", “6BOA21 7042754661" 
DATA “FFFC200838002A00", “S71 CS6S3C08iFDOBG" 
DATA “691453442A007210",, * 2Z005E3A069049841" 
DATA “2AGOE?Z41466F2226E", “OGSSB23BSEB0L23384" 
DATS “E800780270004E75", "“QO02FEF2064C0494E" 
DATA “4BSS5000FF600744", "4953424152440000" 
DATA "“GOO1FFE207524553", "455256450060", "*", 25431 


QJump fans but I rejected it because the 
memory reserve is allocated permanently, 
unlike ALCHP space, and I find names 
like ‘LRESPR’ and ‘LALCHP’ needlessly 
cryptic. Change it if you like; that is the 
whole idea of DIY Toolit. 

LINKUP takes one string parameter ~ 


either a string variable, string expression 
or a name in quotes, You must specify the 
full name of the file; for example: 
LINKUP ‘flp1__diy__heap__code’ 
Memory allocated with LINKUP is 
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reserved permanently. This is because 
LINKUP is designed for use with exten- 
sions to the system which are accessible to 
any task, When you CALL a file of 
extension commands, the SuperBasic 
Name Table is updated with the addresses 
of code for cach command or function. 
Compiled tasks look up the names of 
commands they need and copy the corres- 
ponding addresses so they can call the 
code. 

If you discard memory used for exten- 
sions, the SuperBasic tables still hold 
addresses in the area but other tasks are 
free to use the memory. The machine is 
likely to crash if it tries to call those 


routines once their code has been over- 
written, 

Problems are even more likely if you 
discard the memory used for device 
drivers or interrupt serves. Unless you 
disconnect each link to the system expli- 
citly inside the code it will continue to be 
called when the device is used, or the 
system tries to recognise the parameter of 
OPEN, or an interrupt occurs. 

A few QL extensions can be unlinked, 
with commands like the Speedscreen__ 
SPEED 0), or T_OFF which disconnects 
DIY Toolkit timer interrupts. They are 
exceptional and anyway they still leave 
command code linked, in case you want to 
turn them back on later. So LINKUP does 
notallow DISCARD. If you want to load, 
call and jettison code, use separate steps, 
including RESERVE, or accept the loss of 
memory. 

In some cases you may not mind loading 
a small file with LINKUP. For instance, 
one very easy way to get a graphics 
printout of the majority of the OL screen 
is to put the Easel cartridge in Microdrive 
| and type: 


LINKUP ‘mdv1l__gprint__prt’ 


This loads and calls the Easel screeen 
dump routine but it leaves you with about 
500 fewer bytes to play with once printing 
is complete. 

The code for the heap management 
commands is listed in two forms. Listing 
three gives you a quick way to enter the 
code without using an assembler. It loads 
the equivalent machine code from DATA 
statements and saves the code in a file. 
Onee you have loaded that file, as follows, 
you can use RESERVE, DISCARD and 
LINKUp in your own programs: 


base=RESPR(318) LBYTES “file- 
name”, base : CALL base : NEW 


The first part of listing three is Marcus 
Jeffrey's standard loader, used in every 
month’s DIY Toolkit project. Only the 
DATA, from line 590 onwards, changes 
from month to month. 

Listing two ts the corresponding assem- 
bly code program, written and assembled 
using HiSoft DevPac. Type this text into 
your assembler if you want to customise 
the code or merge it with other routines. 
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This month's code ts more straightfor- 
ward than recent DIY Toolkit projects. 
As usual, the START routine calls BP. 
INIT, the ROM vector which adds new 
commands to SuperBasic. The table label- 
led DEFINE indicates the names and 
addresses of the commands. 

This table is at the end of the file to 
make it easy to extend the command 
names if they clash with variables or 
SuperBasic names in your programs. I 
commend this format to all RAM toolkit 
writers. It means that a simple utility can 
be used to re-name commands in any 
toolkit file with the appropriate format. 


Names can be made shorter or longer, 
assuming that the code offsets in the file 
are re-computed and do not exceed 32K. 

The bulk of the listing consists of three 
parts, one for each command. LINKUP is 
the most complex command but only 
because it uses six or seven QL ROM 
routines and takes pains to ensure that it 
does not leave the system in a mess if given 
an inappropriate parameter. 

First the code calls CA.GTSTR to fetch 
a string parameter on to the maths stack, 
addressed by 0(A1, A6.L). Names must 
be in quotes, or you will get an ‘error in 
expression’ report. CA.GTSTR does not 
pick up the identifier of parameters as it 
should when it finds a name with no value. 
IT shall explain how to curcumvent that 
limitation another month, 

The next block of code uses the name to 
open a file for input. The maths stack can 
move at any time, so the code uses TRAP 
#4 immediately before the OPEN to warn 
Qdos that it must add A6 to AO when it 
needs to find the name. 

If the file is opened successfully 
LINKUP reads the file header to check 
the file size - see QL World, February, 
1988. The header is 64 bytes long and it is 
barely possible that two tasks may per- 
form a LINKUP at the same time. Rather 
than risk collisions and tie up 64 bytes of 
RAM, LINKUP reads the header into the 
SuperBasic ‘buffer’ area, also used by 
EDIT, INPUT, EDLINE$ and COPY. 
Every SuperBasic task has its own “buffer” 
of at least 128 bytes. 

If the file length is odd or the header 
cannot be read, LINKUP closes the 
channel and returns an error code. This is 
the only check to prevent you trying to 


link code which is not executable. You can 
crash the machine easily if you try to 
LINKUP a Quill document or compiled 
task. LINKUP cannot check this for you, 
as extension code files may contain any 
mixture of code and data. 

Otherwise common heap space is allo- 
cated with MT.ALCHP and FS.LOAD 
reads the code into memory. The file is 
closed and JMP (A4) is enough to call the 
code, using the return address from the 
call to LINKUP. The code takes pains to 
de-allocate memory and close the channel 
if an crror occurs, so that resources are not 
tied up. 

RESERVE is simpler than it looks. It 
fetches the two parameters, checks that 
the number of bytes is greater than zero 
and passes the buck for all further check- 
ing to MT.ALCHP, the system call to 
allocate common heap space. 

Common heap memory is allocated in 
l6-byte positions. Each entry has a 16- 
byte ‘header’ used to keep track of 
allocations. The system uses the heap to 
hold details of. channels, devices and 
individual drives; heap space is also used 
by FILL, RAM discs and toolkit com- 
mands like ALCHP, ALLOCATION and 
RESERVE. 


CUOIMMON Neap alCds CaNNOt VE HhoveU 

once they are allocated, as other parts of 
the system may hold addresses inside 
them. 
Memory is allocated from the bottom of 
the OL memory map, upwards towards 
the movable end of SuperBasic and task 
space. Intermediate space is used for file- 
buffering ‘Slave Blocks’. 

It is easy to ‘fragment’ the heap if you 
are careless. Reserved spaces must be a 
contiguous sequence of bytes, so one 
small block in the incorrect place can 
cause havoc. 

Imagine you have 200K free and allo- 
cated 99K with RESERVE. Now you 
open a channel, start to use FILL, or 
access a drive you have not used pre- 
viously, Odos grabs another few hun- 
dred bytes. Later you DISCARD the 99K 
but you can no longer allocate more than 
100K because the available common heap 
space is split in half by the small system 
allocation. 

Qdos merges adjacent memory areas 
as they are released, so that problem 
disappears if you always DISCARD mem- 
ory in the opposite order from that in 
which you RESERVE it, so long as 
Qdos does not clog things with its own 
allocations in the meantime. Once the 
heap is fragmented the only way to 
recover is to discard the areas which get in 
the way, which may be difficult or impossi- 
ble, or press Reset. 

Even LINKUP fragments the heap 
slightly, because IO.OPEN uses the heap 
to store channel details; next LINKUP 
loads code into the heap, then IO.CLOSE 
discards the channel details, often leaving 
a small ‘hole’ in common heap memory. 

System entries use all 16 bytes of the 
common heap header but the last four 
bytes are unused if you allocate a block 
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* GL WORLD DIY TOOLEIT - heap memory routines 
* Version G.7, Copyright i989 Simon N Goodwin. 


% 

initialise lea.l 
Move .w 
3p 

~ 

* LINKUP "file mame 

& 

move. w 

isr 

bne.s 

Sub. w 

bine. s 


linkup 


move. 
MoOveq 
moveg 
trap 
moved 
trap 
tst.l 
Bbne.s 


move. 1 
moveg 
moveq 
trap 
moved 
trap 
tst.] 
bne.s 


move. 
move.i 
noaved 
best 

bie. s 
move. 1 
move. i 
move C 
maved 
trap 

tst.i 

bne.s 


move.i 
move. 1 
exgq.1 
moved 
moved 
trap 
tst.1 
big. 


moved 
trap 
jmp 
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deftine,al 
$1lid,ae 
(a2) 


etring” 


$1ié6,a2 
(az) 

bad return 
#i.,d03 

bad param 


ail,ad 
#-i,ci 
#i,d3 

#4 

#1,d00 

#2 

gg 

bad return 


iaéji,al 
#64,d2 


fate 
bad close 


iaé),al 


G@(al,ad.i)d,di 


#-i5,d0 
#O, di 
bad_ clase 
di,d4 

ac, a4 
#0,d2 

#249 ,d0 

#i 

do 

bad _ciose 


ao,al 
d4,qa2 
aq,ad 
#—-1.,d3 
#72,d0 
#5 

Ga 
bad_load 


#2,d0 
#2 


(ad 


Al -> extension detaiis 
Fetch BF.INIT vector 
dd these extensions 


adds extension code in the heap 


Fetch CA.GTSTR vector 
Fut string at OfA1,Ad.L) 
Return if unsuccessful 
Only one par ameter 7 
Return unless yust ane 


AO is name offset 

Channel owner = this task 
GPEN_IN (shared access) 
Farameter is AG relative 
TO.OFEN trap key 

Try to open the file 

Was OFEN OK 

If not, exit & report error 


4&1 is BASIC buffer affset 
There’s racom for 464 bytes 
Allow plenty of time 
Buffer is AS relative 
FS.HEADR 

Read the file header 

Was it OK? 

Abort otherwise 


Retrieve buffer of fset 

Get file length from header 
Presume “bad parameter ~ 
Check length is even 

Close ® camplain otherwise 
Save ienath of code 

Save channel ID 

Owner is permanent task 
MT.ALCHF trap key 

Allacate memor y 

Did it work? 

If not, close file & report 


Set load addrees 
Retrieve file iength 
Retrieve channei iD 
Allow infinite time 
FS.L.0AD trap key 

Load the entire file 

Did it load OKF 

Tf not. tidy up & report 


Ta. CLOSE 
Close the fiie 
CALL the code 
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¥ 
bad_ load move. 1 Gi Save cause of death F 
move.1 i Find the memory 
moveqg 25,00 MT.RECHP trap key 
trap De-—allocate RAM 
bra.s close _ out Close file & report 
* 
bad clase move.l dO,d7 Save error code 
clese_out movegq #2,d0G IO.CLOSE trap key 
trap #2 Close the file 
move.i d7,do0 Restore error code 
rts 
* 
bad param moveqg #-15,d0 Set BAD PARAMETER report 
bad_ return rts 
* 1 
*® DISCARD buffer_address —- deallocate memory on the heap 
+ 
discard move. Ww $118,a2 Fetch CA.GTLIN vector 
jor (a2) Get long integers 
bne.s bad return Return if fetch fails 
subq.w #1,d3 Is there just 1 parameter? 
bne.s bad param Reject otherwise 
move. Of€ail,ad.1),d1 Get parameter from RI stack 
bmi .s bad param Parameter must be += GO 
btst #0,di Parameter must be even 
bine. Ss bad param Complain if it is odd 
move. di,aa Use parameter as a pointer 
empi.l #° Bufa’®.—(ao) Check header for watermark 
beq.s seems ak Only continue if it matches 
Mmaved #-7,d0 Otherwise report NOT FOUND 
rts 
seems ok eldrit (aQj+ Serub watermark 
moveg #25,d0 MT.RECHP trap key 
trap #1 De-allocate RAM ; 
rts 
# 
* address/error code = RESERVE (bytes, owner) — reserve heap 
o 
reserve move.w $118,a2z Fetch CA.GTLIN vector 
jsr fae) Get lang integers 
bne.s bad return Give up if fetch fails 
subq.w #2,03 Two parameters? 
hne.s bad param Give up unless two 
move. Gfat,ad.1),di Get number af bytes 
ble.s bad param At least 1 byte needed? 
move. | 4iai,a6é.1),d2 OQwner -i = self, © = @BOS 
addaq.1 H#2,ai Tweak stack by (8-6) = 2 f 
move.) al, $58(a&) Set BV.RIP for result i 
maveg #24,d0 MT. ALCHF 
trap #i Allacate RAM 
tst.1 do 
bmi.s return_fp Return error code 
move. 1] #° Ruta? ,-4(ads Identify this block 
move. 1 a0,d0 Return AQ via DO 
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* Make BDOL.e 
# 


return fp move.w 
move. 
beq.s. 
mOvVe.w 
add.1l 
byvs.5 
suba. w 
move.i 
movea 
* 
normalise mave.l 
asl.l 
bvs.5 
sub.w 
move. 
too_far asr.w 
bne.s 
nor malisec mave. 1] 
mave. tl 
move. WwW 
mioeverd 
job done moOveg 
rts 
# 
define 


dc.w 
dc.w 
dc.b 
dc.w 
diz.b 
dc.w 
dc.w.w 
de. b 
dcaw 


with MT.ALCHP, To help DISCARD 
identify RESERVEd memory, the DIY 
Toolkit code stores the text “Bufa’ at the 
end of the common heap header, as a kind 
of ‘watermark’ 

The last part of the code is the familiar 
normalisation routine which converts the 
reserved address into a Qdos floating 
point value. It is a pity you cannot return 
long integers by RTS with D4 set to 4. 

DISCARD is very simple. It checks that 
the parameters even and positive, then 
looks for the watermark at the specified 
address, If successful, DISCARD ass- 
umes the space was allocated by 
RESERVE, as there are no words starting 
‘Bufa’ in my dictionary. If clears the 
watermark, then calls MT.RECHP to de- 
allocate the space. It might be considered 
more clegant to link spaces in a list, as 
MEM and ALCHP do, but | use a 
watermark as it is simpler and more 
efficient. 


@ Please write to me, care of QL World, if 
you have found interesting tweaks or short 
applications for DIY Toolkit code. Send 
yur suggestions if you would like me to 
explore a specific area in this column, or to 
implement new and original commands. 
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inte a 6 byte decimal 


do.d4 
do,dS 
normalised 
#2079,d4 
dO,do 
normalised 
#1,d4 
do,dS 


#16,d1 


qd3,da 

di,da 

too far 

di,d4 

g6,d5 

#1.di 
normalise 

$556 (ad) ,al 
dS.,2tai.aé.1} 
d4.0(ai,aé.1} 
#2,c4 

#0O,a0 


linkup—-* 

4, *LINEUMF’ 
discard—* 
7. ° DISCARD* 
1 

reser ve-* 
7, ° RESERVE?’ 


Oo 


in the space on the RI stack 


D4 will be exponent 
DS will be mantissa 


ferro is a trivial case 
First guess at exponent 


Already normalised? 


No. halve exponent weight 


Double mantissa to ma 
Try a 16 bit shift 


Take copy of mantissa 
Shift mantissa di pia 
Over flaws must shift 
Correct exponent far 
New mantissa is more 
Halve shift distance 
Try shift of 8, 4, 2 
Get safe Al value 
Stack mantissa 

Stack exponent 
Floating point result 


Two procedures 


ne function 


end 


tch 


ces 
less 
shift 
normal 


and i 
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If you have a program worthy of consideration, send it to ‘The Progs’, 


Sinclair QL World, Greencoat House, Francis Street, London SW1P 1DG. 
We pay for everything published at the usual page rates. 


Program of the month 


3D SKETCHPAD by A. McGregor 


D_ Sketchpad, which 

runs on an unex- 

panded QL, enables 

the user to create sim- 
ple wire-frame models in 3D by 
manipulating rectangular 
blocks of different sizes and 
orientations in imaginary 3D 
space. When the program is 
running, the following options 
are available: 


Add Block 


When “ADD BLOCK” is 
selected from the main menu, 
a new block is added to the 
file and default values for the 
parameters which control its 
size, position and orientation 
are displayed on the screen. 
Inputting new values for 
“X__DIMN”, “Y__DIMN” 
and “Z_DIMN” will alter 
the size of the block in its 
x, y and z axcs. “X_TRAN”, 
“Y¥_ TRAN” and “Z__TRAN” 
define the position of the block 
rclative to the point of intersec- 
tion of the three red cross hairs 
X=0, Y=0 and Z=0. The 
block may be rotated in any of 
the three axcs by adjusting 
“X__ROTN”, “Y__ROTN” or 
“Z_ROTN”™. The angle of 
rotation is expressed in 
degrees, Pressing the space bar 
will cause the new block to be 
displayed on the screen and 
return you to the main menu. 
All the block definitions are 
stored in a single two dimentio- 
nal array and up to 100 of them 
may be stored numbered from 
0 to 99, 
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“EDIT BLOCK” enables 
you to return to a block which 
has already been defined so 
that you may make alterations 
to its various attributes. The 
block being edited will be re- 
drawn on top of its old version 
when the space bar is pressed. 

A block may be removed 
from the file by selecting 
“DELETE BLOCK” and then 
following the on screen 
prompts. Once a block has 
been deleted it cannot be res- 
tored and other blocks may be 
renumbered as the file is com- 
pressed to fill the gap. Note 
also that the display will not be 
amended during this operation 
and, therefore, the deleted 
block will remain visible until a 
subsequent operation causes 
the entire scene to be redrawn. 


Redraw 


This option simply redraws 
the entire scene. It may be used 
to tidy the screen after a block 
has been edited or deleted. 

At any time during the 
development of a model, the 
position and orientation of the 
“camera” may be adjusted to 
give a different view of the 
scene. Selecting the ‘ADJUST 
VIEW’ option from the main 
menu allows you to input new 
coordinates for both the posi- 
tion of the camera and the 
position of the “target point” 
towards which the camera 
always points. The orientations 
of the X, Y and Z axes as seen 
by the camera are shown 


diagramatically at the bottom 
right of the screen. The size of 
the “lens angle” can also be 
adjusted within the range 20 to 
100 degrees. There are no 
restrictions on where you may 
position the camera within the 
scene since all lines which 
extend beyond the limits of the 
“viewing pyramid” arc auto- 
matically ‘clipped’ before the 
perspective transformation is 
carried out, 


Move Origin 


It is sometimes easier to 
work out coordinates for a new 
block if the “origin” — the point 
where X=0, Y=0 and Z=0 — 
is relocated with respect to the 
existing blocks. The three red 
cross hairs which are normally 


REMark ## HH EREREERE 3 
REMark # eee HERE Oy 


CLEAR: initialise 
OPEN#4,con_S12x 256a0x 
OPEN#4 ,con, 448 2006 
BORDER#4 , 2,2: SCALE#4, 
OF EN#S,con 378x 40aSeu 
IF mit-1idraw_scener£ 
REFeat menu 

CLO#S: INK#S,4 
AT#5,0,9 :PRINT#S,"1/ 
AT#5 ,0,21:FRINT#S, "2/ 
AT#S,O,42:PRINT#HS, "3/ 
AT#5,1,0 :PRINT#S, "4/ 
AT#5,1,21:FRINT#S,"S/ 
AT#HS,1,42:FRINT#HS, "S/ 
AT#5,2,0 :PRINT#S,"7/ 
AT#5,2,21:PRINT#S, "8/ 
AT#S,2,42:PRINT#S,"9/ 
INK#5,7 
AT#5,3,0 
REFeat chloop 

wait _no_key: key=CODE ( 
S€Lect ON key 


tPRINT#S , "1— 


visible on the screen are 
intended to show the position 
of the origin which is at the 
point where they intersect. A 
redraw will be carried out auto- 
matically after this operation. 
All of the block definitions 
and the viewpoint data can be 
saved onto a microdrive car- 
tridge by selecting “SAVE 
FILE” and then following the 
on screen prompts. If a micro- 
drive error occurs the program 
may be restarted without loss 
of data by typing RUN 140. 
Once saved, a file may be 
reloaded into memory via the 
“LOAD FILE” option. 
ABANDON FILE. simply 
destroys the current data and 
restores the viewpoint vari- 
ables to their starting values. 


D SKETCHPAD 64644647646 446 eH 
-D. ME GREGOR, 4: at ee eee ee 


O:MODE 4 

146 
hght#2,-wdth, -hght 
216:CSIZE#5,0,0 
LSE draw_axes 


LOAD FILE" 
SAVE FILE" 
ABANDON FILE" 
ADD BLOCK" 
EDIT BLOCK" 
DELETE BLOCK." 
MOVE ORIGIN" 
ADJUST VIEW" 
REDRAW" 


9 TO SELECT" 


INKEY#(—-1))-48 
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owe 


zEXIT 
rEXIT 
:EXIT 
2 EXIT 
sEXIT 


=l:recall_file 
=2:store_file 
=Srabandon_file 
=4:add_ object 
=S:edit_object 
=64:delete_object sEXIT 
=7smove_origin 2EXIT 
=B8:adjust_viewpoint:EXIT 
=9:draw_scene sEXIT 
END SELect 

END REFeat chloop 

END REPeat menu 

8 

DEFine PROCedure initialise 
wdth=1é6é6:hght=100:cd=.1 

DIM blk (100,8) ,vw(6) 

vw(0) =O: vw(1) =O: vw (2) =O 

vw (3) =1502 vwi4) =-400: vw (5) =3001 vw (6) =60 
ni=-l:set_up_view 

END DEFine 

: 

DEFine PROCedure abandon_file 

INK#5, 4: CL S#5 

IF ni=-1t 

PRINT#5,"FILE ALREADY EMPTY!" 

PRINT#5S,"PRESS ANY KEY" 

wait_no_key: PAUSE 

ELSE 

PRINT#5,"CURRENT DATA WILL BE LOST IF NOT ALRE 
SAVED!" 

PRINT#5,"DO YOU WANT TO CONTINUE? Y/N” 

TF NOT yes:RETurn 

END IF 

initialise:CUS#4:draw_axes 

END DEFine 

DEFine PROCedtrre delete_object 

LOCal n,m,ob% 

INK#S, 4:CLS#5: ob %=0 

IF nie-1 

PRINT#5,"NO BLOCKS PRESENT!" 

FRINT#S, "PRESS ANY KEY” 
wait_no_key:PAUSE:RETurn 

ELSE 

IF ni130 

PRINT#5,"WHICH BLOCK DO YOU WANT TO DELETE? 0 
ni 

REFeat roloop 

ob%=number (5,2,0,3,"TYPE BLOCK NUMBER >") 

IF ob%<=n1 AND ob%~>=O0:EXIT roloop 

END REPeat roloop 

END IF 

CLS#5 

FPRINT#S, "DELETE BLOCK NUMBER" !ob%! "Y/N" 

IF yes 

FOR n=ab% TO nl 

FOR m=0 TO DIMN(b1k,2) 

blk (n,m) =b1lk (n+1,m) 

END FOR m 

END FOR n 

ni=ni-1i 

CLS#5 

PRINT#S, "BLOCK NUMBER" !ob%! "DELETED" 
PRINT#S,"FRESS ANY KEY” 

wait_no_key: PAUSE 

END IF 

990 END IF 

1000 END DEFine 

1010 3: 
1020 DEFine PROCedure add_object 

1030 LOCal key%,obit 

1040 IF nixDIMN(b1lk)-1 

1050 ni=niti 

1660 blk (n1,0)=100:rb1k (n1,1)=100:blk (n1,2)=100 
1070 edblock ni 

1080 ELSE 

1090 INK#S,4:CLS#5 

1100 PRINT#5,"FILE FULL!” 

1110 PRINT#5,"PRESS ANY KEY" 

1120 wait_no_key:PAUSE 

11350 END IF 

1140 END DEFine 

1150 
1140 
11790 
1180 
1190 
1200 


chloop 
chloop 
chloop 
chloop 
chloop 
chloop 
chloop 
chloop 
chloop 


850 
B40 
870 
880 
B90 
900 
910 
920 
930 
940 
950 
960 
970 
980 


DEFine FPROCedure edit object 
LOCal ob% 

INK#5,4: CLS#5: obZ=0 

IF nica 

PRINT#S,"NO BLOCKS PRESENT!" 
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1210 
1220 
1230 
1240 


1250 


LE eae a | 


1530 
1540 
1550 
1560 
1570 
1580 
S90 
1600 
1610 
1620 
1630 
1640 
1450 
16460 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 


2O80-FRINTHS "67 


2010 
2020 
2030 
2040 
2050 
2060 
2070 


PRINT#5, “PRESS ANY KEY" 
wait _no_key:FAUSE:RETurn 
END IF 
IF mira 
PRINT#5S,"WHICH BLOCK DO YOU WANT TO EDIT’ 
REFPeat chloop2 
obZ=number (,2,0,35,"7YFE BLOCK NUMBER 23 

22.enl AND obx”S=OQ:EXET chieoops 

‘eat chloape 


edbloeck obz 
END DEFine 


DeFane PROCedire edbtoct 
LOtal ey 
(NERS, 42 CLO 
FRINT#HS."1/ xX 
PRINT#S,"2/ ¥ 
PRINT#S,'S/ Z 
FRINTHS,"4/ XK 
PRINT#5S,"S/ ¥ 
z 
x 
¥ 
Z 


nr) 


e4muA, Ld sabe ,O, ae 
(nus, 2} oRINS, 1 0 
TRANS "SbLlk (nuk, Sd) sarees y ld, 2d 
TRAN=E"&blk (mun, 4) 2ATHS, 1,40! 
PRINT#HS, "6/ Sinurz,S) sAT#S, 2,0 
PRINTS#S, "7/7 E 
PRINTH#HS, "87 
PRINT#S,"97/ 
INK#5, 7 
PRINT#S, "1-9 TO EDIT OR SPACE TO EXIT" 
REPeat chloops 
wait no_key:key=CODE (INKEY#(-1))-48 
SELect ON key 
=i:rblk (nu%, 0) =number (5,0,10,8,0,"") i 
=2:b1k (nu%,1)=number (5,0,31,8,0,"") 
sSrblk (mu%,2) =number (5,0,52,8,0,"") 
=4:blk(nu%,3) number (5,1,10,8,1,"") 
=S:rb1lk (nu, 4) =number (5,1,31,8,1,"") 
=6:b1k (nu%,5) =number (5,1,52,8,1,"") 
=7:blk(nu%,6)=number (5,2,10,8,1,"") 
=8: blk (nuZ%, 7) =number (5,2,351,8,1,"") 
=9rblk (nu%,8) =number (5,2,52,6,1,"") 
=32--48 
flagz=0: ob jt=nu%:draw_ob ject 
IF flagz=0 
INK#5 ,4:CLS#5 
PRINT#5, "BLOCK OUTSIDE VIEWING FYRAMID!” 
FRINT#5,”"FRESS ANY KEY" 
wait _no_key: PAUSE 
END IF 
RETurn 
END SELect 
END REFeat chloopS 
END DEFine 


DEFine FuNction yes 

LOCal key? 

wait _no_key 

REFeat ynloop 
key$=INKEY#(~1) 

IF keyt=="y"sRETurn 1 

IF key#=="n":RETurn O 

END REFPeat ynloop 

END DEFine 

DEFine FPROCedure wait_no_key 
LOCal key%,n 

REFeat wloop 

keyZ=0 

FOR n=0 TO 7skey%=keyZ+KEYROW (n) END FOR ni 
IF keyZ=O:EXIT wloop 

END REPeat wloop 

END DEFine 


‘ ednuk, 7) sAbT#o,- 
ROTN="b1k (nu, 8) ATH, & 


DEFine FPROCedure 
LOCal key 
INK#5,4:CLS#5 
PRINT#5,"1/ TGET 
PRINT#5,"2/ TGET 
FRINT#5,"3/ TGET 
PRINT#5S,"4/ CMRA 
FRINT#5,"5S/ CMRA 
CMRA 
LENS 


adjust viewpoint 


X="&vw (0) sATHS,O,2 
Y="Ryvw(l) r:AT#S,0,42 
Z="&vw(2) :AT#5,1,0 
X="&vw(S) sAT#S,1,21 
="&vw(4):AT#5S,1,42 
Z=" Sw S) tAFHS, 2,0 
PRINT#5,"7/ A="L&vw(6) sATH#S, 3,0 
INE#5,7 

FPRINT#5,"1-7 TQ EDIT OR SPACE TO EXIT” 
REPeat svloop 

wait _no_key:key=CODE (INKEYS(-1))-48 
SELect ON key 

=1l:vw(O)=number (5,0,10,8,1,"") 


41 


2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2140 


Biz 


a 2180 


2iza 
{ 2200 


j #216 


2220 
2250 
2240 
2250 
22460 
2270 
Bred 
2290 
2300 
23510 
2320 
2aa0 


et 2a] 


24350 
2440 
24So 
2460 
m7 
24B0 


eA 


2500) 
SE 10 


Par 


om 


Brat 
bei AB) 
2580 
2590 
2600 
2410 
2620 
2630 
2b40 
2OS0 
O50) 
2670 
26680) 
2690 
2700 
2yia 
ee 4 8 
27S 
2740 
2750 
27460 
277g 
2780 
2790 
2800 
2810 
2820 
2B30 
2840 
2BS0 
2860 
2870 
2680 
2870 
2900 
2910 
2920 


sZrvw(1)=number (5,0,51,8,1,"") 
=Sivwl2)=number (5,0,52,8,1,"") 
=4:vw(3) =number (5,1,10,8,1,°") 
=S:vw(4)=number (5,1,31,8,1,"") 
=6:vw(5)=number (5,1,52,8,1,"") 
=7:ivwié) snumber (5,2,10,3,0,"") 
Inees  4:AT#S,2,10 

TF vw(6)<20 

Vw (4) =20 :PRINT#5,"20 

END IF 

IF vw) e100 
vwi(S)=L1OO:PRINT#S, "100 ” 

END IF 

=S2-46 

IF niz=Ordraw_scene:ELSE draw axes 
RETurn 

END SELect 

END REPeat svloop 

END DEFine 

DEFine PROCedure move_origin 
LOCal x,yy,z4n 

INK#S, 4: CLS#5 

IF niz-i 

PRINT#S,"FILE EMPTY!" 

PRINT#S, "PRESS ANY KEY" 

wait no_key:PAUSE:RETurn 

END LF 

REF eat or loop 

CLS#5 

“enumber (5,0,0,8,1,"X% DISPLACEMENT. . 


yenuober (5,1,0,8,1,"¥ DISPLACEMENT 
genumber (5,2,0,8,1,"°2 DISPLACEMENT 


ATHS, 0, 36 

FRINT#S, "ALL CORRECT? Y/N" 
IF yes:EXIT orloop 

END ReEPeat arloop 

Vin CO} yw C0) 4 
ve(ldsvwtld-y 

Vin CS) Sy Cl) oz 


ve C4) eww C4) my 

ww (8) =v CS) 2 

POR mea TO rt 

tlk (mi, 3) blk drm, 3) ea 

bhk ri, 43 7bLk 4 4) my 

blk tn, Sb tbhde Cri. Sdn e 

END FOR ri 

draw Scere 

END DEF A re 

DEFine FROCedure set_up view 
LOCal exr,eyr,ezr,d1i,d2 

exr=vw (S)~vwi0) 
eyr=vwl4)—-vwil) 

ezr=vw (S)—vw (2) 

G1L=SORT (ARS (exer 2) +ABS (@yr 2) > 
d2=SQRT(ABS( di“2)+ABS(ezr"2) > 
IF exr=0 AND eyr=O AND ezr=0 
aletraZ=O:ag=1:a4=0 

ELSE 

IF exr=0 AND eyr=0 
al=traz=O:aS=0: a4ze2zr/d2 

ELSE 
al“eyr/~-dilraz=exr/dleas=di/d2:a4=ezr/d2 
END IF 

END IF 
Yaealivb=ansvg=as:vk=-a4:vl=d2 
Vera4e—-alivts=a4ealivizaie*—-al2:ivj=aseal 
sd=wdth/ TAN (RAD (vw(6) /2)) 

END DEFine 


DEFine PROCedure draw_scene 
LOCal objt 
INE#5,4:CLS#5:draw_axes 

IF nleo 

PRINT#S, "NOTHING TO DRAW!" 
FRINT#5, "PRESS ANY KEY" 
wait no_key:FAUSE: RETurn 
END IF 

FOR objt=0 TO nl 
draw _ob ject 

END FOR objt 

IF flagh=0 


2930 
29740 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
BO90 
3100 
3110 
oe 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3470 
34680 
3690 
3700 
3710 
3720 
3730 
a740 
3750) 


PRINT#5, "VIEWING PYRAMID EMPTY!" 
PRINT#5,"FRESS ANY KEY" 
wait_no_key: PAUSE 

END IF 

END DEFine 
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DEFine PROCedure draw_ob ject 
INK#4, 7: INK#5,4: CLS#5:AT#5,0,0 
PRINT#5, "DRAWING BLOCK NUMBER" !objt 
syz=SIN(RAD{b1k (objt,4))) 
cyz=COS(RAD(bIk (objt,é))) 

SX Z=SIN(RAD (blk (objt,7))) 
cxz=COS (RAD (b1k (objt,7))) 
sxy=SIN (RAD (blk (objt,8))> 

cx y=COS (RAD (b1k (ob jt,8))) 

tds =blik (ob jt,3)-vw(0) 

tdy=blk (abjt,4)-vw(1) 

tdz=blk (objt,5)-vwl2) 


“=b1k (objt,0)/2:y=blk (objt,1)/2:z=blk (objt,2) 


RESTORE 4640 

DIM xe(@) ,ye(8) ,ze(8) 

FOR vtx=1 TO 8 

READ XW YW, ZW 
rotate_x yw,zw 
rotate _y xw, zw 
rotate _z xw,yw 

translate xw,yw,zw 
viewpoint xw,yw,zw 

END FOR vtx 

FOR cnct=1 TO 12. 

READ vertex1,vertex2 
draw_line vertexl,vertex2 
END FOR cnet 

END DEFine 
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DEFine PROCedure rotate—xty,2z) 
LOCal yt,z2t 
yt=cyz*#y-syz#z 
ztssyztytcyz#z 
yw=ytizwezt 

END DEFine 


i] 
DEFine PROCedure rotate_y(x,z) 
LOCal wt,zt 

HC=SKZ#Z+CKZ¥X 

zt=exz¥z-sxz¥x 

xwex tr zw=zt 

END DEFine 


3 

DEFine PROCedure rotate_2(x,y) 
LOCal xt,yt 

xt=cxy*x-sxyky 

yt=axy#xt+cn yey 

xwexteyweyt 

END DEFine 


: 
DEFine PROCedure translate(x,y,z) 
xw=xttdxs yweyttdy:zw=zttdz 

END DEFine 


3 
DEFine PROCedure viewpoint (x,y,z) 
xe(vtx) =vatut+vbty 

ye (vtx) =vexx+ve ey tvgez 
Ze(vtx)=vitxntvitytvkeztvl 

END DEFine 
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DEFine PROCedure draw_axes 

LOCal wx ,wy,vi,v2,px,py,pt,dis 
CLS#4:CLS#S: INK#4,2:set_up_view 
DIM xel(S) ,ye(&6) ,ze td) 

wx=702wy=40) 

OPEN#3,scr 

WINDOW#S , wx ,wy ,480-wx , 216: CLS#3 
SCALE#S ,wy,-wx/1.35/2,-wy/2 ° 
FAPER#S ,O: INK#3,2 
OVER#3,1:CSIZE#3,0,0 
CLS#3:dis=wy/2-5 

RESTORE 4570 

FOR vtx=1 TO & 

READ MW, YW, ZW 

yiewpoint xw.yw,zw 

END FOR vt» 

FOR cnet#1 TO 3 

READ vi,ve 

LINE#S ,xe(vl) ,ye(vil)TO xel(ve) ,ye(ve) 
END FOR cnet 

FOR p=2 TO & STEF 2 


sie Ba cane eg let pl Bi gt pcp alanine sit angel Re ig bet Due lg Sal ee nei at 


S800 

S810 

3620 

3830 
Se4c 
BSC 
36860 
SATO 
S880 
Sa9O 
Sean 
S10 
So20 
S950 
S740 
3950 
3960) 
S970 
3980 
SPIO 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4oo0 
4ioa 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
8200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
&,v7 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
43520 
4530 
4540 
4550 
43560 
4570 
4580 
4equ 
4600 
4610 
4620 
4630 
4640 
4650 
4660 


puswo/2-J+xe (pel. oS 

pyewy /2-B-ye (p) 

CURSORS , px spy 

READ pt 

INH, 4:OVERHS,-1 

PRINT#S,p2 

END FOR p 

d¢is=-1Eé 

RESTORE 4570 

FOR vtx=1 TO & 

READ ww, yw, Zw 

BWEXWoVW CO) yweywovaw Ol) eweezwe ya (2) 
viewpoint xw,yw,2w 

END FOR vtx 

FOR cnet=1 TO 3 

READ vi,v2 

draw line vi,v2 

END FOR ecnct 

flagu=o 

END DEFine 

1 

DEFine FROCedure draw_lineivtxi,vtx2) 
LOGal cul, cyl,cx2,cy2,vol vo2,ves 
LOCal cfl% cf2h, xsi, ysl  xs2,ys2 
nlene(vtn ly ax2=xe(vtx2) 

yil=ye(vtnxl) ry2eye(vtx2) 
ziseze(vtxl):z2=ze(vtx2) 

IF ziscd AND z22¢cd:RETurn 

IF zitcdeclip_zexl=xcryl=yc:zl=cd 
IF z2scdiclip_z:x2z=xcry2sycsz2=cd 
exi=sd/wdth*xiicx2=sd/wothex2 

ef le=(exde-zi) tex l>21) #2 

CHAK] (cH et -Z22)+ (cn Doz2) #2 

IF cf#1%20 AND cfl%4=cf2%:RETurn 

IF cf1%20 

clip_xy cft%,xl,yl,z1,x2,y2,22,sd,wdth 
xl=vclsyl=vc2!ez1=vc3 

END IF 

IF cf2%00 

clip_xy cf2Z4,x1,yl,21,x2,y2,22,sd,wdth 
u2=velsy2Z=ve2122=ve3 

END IF 
cyl=sd/hght*ylicy2=sd/hght*y2 
cflee(cyl-z2l)+(cylez1) #2 

cf 2h=(cy2i-z2)+(cy2>z2) #2 

IF cf1%>0 AND cf1%4=cf2%:RETurn 

IF cf1Z0 

clip_sy cfl%,yil,mi,zi,y2,x2,22,8d,hght 
ylevel:ixl=vce2:21=vc3S 

END IF 

IF cf2%30 

Clip_xy cf2%,y1,x1,21,y2,x2,22,5d,hght 
y2evelsn2=ve221z2=vc3 

END IF 

uSl=sd*x1/zilrysil=sd#yl/zi 
xe2=sd*x 2/223 ys2Z=sd*y2/z2 
LINE#4,xsl,ysl TO xs2,ys2:flagza1t 
END DEFine 


DEFine FPROCedure clip_xy(cf%,vi,v2,v3,v4,vo,v 
,v8) 

LOCal mu,dcl,dc2,di,d2,d3,d4 
dlev4eviid2=vi-v4id3=v2-vS: d4=v3-vé 
IF c##=1:mu= (dl+vée*ve) / (d2*-v7-d4"ve) 
IF cf%=2:mu=(di-véeve) / (d2e—v7+d4e*ve) 
vol=mueyvi+ (1—mu) v4 

veS=mukv3+ (1-mu) #vd 

de1=SORT (d2"24+d4°2) ; 
dc2=SGRT ( (vel—-v4) 24+ (vcS-vé) “2) 
vetedc2edS/dcl+vs 

END DEFine 


DEFine PROCedure clip_z 
xe=(ced—-2z1) eu 2—-x 1) / Ca22—zbo+ed 
yo=tcd-z1)*ly2-y1)/ (22-21 +yt 
END DEFine 


4 

REMark AXES 

DATA -dis,0,0,dis,0,0 

DATA O,-dis,0,O,dis,0 

DATA 0,0,-dis,0,0,dis 

DATA 1,2,5,4,5,6 

BATA Re EP 

REMark BOX 

DATA Ny Vg hE ah Va TE yh a Va TE ah my ye 
DATA ~Hy~¥ aE aha Va Zaha Vaz hy V y= 
DATA 1,2,4,3,8,7,5,6 


4900 
4910 
4920 
4930 
4940 
4950 
49460 
4970 
4980 
4990 
5000 
5010 
EADY 
S020 
5030 
5040 
S050 
Scéo 


S070 
5080 
5aso 
S100 
S110 
5120 
5130 
5140 
S150 
S160 
S170 
5180 
5190 
5200 
S210 
S220 
S230 
5240 
S250 
5260 
8270 
5280 
S270 
5300 
5310 
5320 
BS50 
5340 
S350 
5360 
S370 
S280 
S20 
S400 
S410 
5420 
5430 
5440 
S450 
5460 
5470 
5480 
5490 
S500 
S510 


DEFine FPROCedure store_file 
LOCal files,i,i 

INE#S ,4:CLS#5 

IF ni=-1 

PRINTS, “FILE EMPTY ?* 
PRINT#S, "PRESS ANY KEY" 
wait _no_key:PAUSE:RETurn 
END IF 

CLS#5 

PRINT#5S, “TYPE DEVICE (e.g: MDV1io) & FILE 
filet=file name#(5,2,0) 

CLO#S 

PRINT#S, "SAVE "&FfilesE"y Y/N" 

IF NOT yessRETurn 

OPEN _NEWHLIO, filet 

PRINT#1IO,"THIS IS A 3D SEETCHFAD FILE" 
FOR i=0 TO DIMN (vw) 

PRINT#1O,vw id 

END FOR i 

FOR i=0 TO nl 

FOR 'O DIMNiblk 2) 
PRINT#LO,b1k Ci, i} 

END FOR j 

END FOR i 

CLOSE#10 

END DEFine 


j=0 


DEFine PROCedure recall_file 

LOCal file#,id#,i 

INK #5, 4: CLS#5 

IF niv-1 

PRINT#S, "CURRENT DATA WILL BE LOST IF NOT ALR 
SAVED!" 

PRINT#S,"DO YOU WANT TO CONTINUE? Y/N" 
IF NOT yes:RETurn 
END IF 

CLS#5 
PRINT#5,"TYPE DEVICE (e.g: MDV1_) & FILE NAME 
filet=file_namet(5,2,0) 

CLS#5 

PRINT#5,"LOAD "&files&"? Y/N" 

IF NOT yes: RETurn 

OFEN_IN#10,file*# 

INFUT#10,id# 

IF id#="THIS IS A 3D SKETCHFAD FILE" 
initialise:nl=-1 

FOR i=0 TO DIMN(vw) 

INPUT#10, Vwi) 

END FOR i 

REPeat ldloap 

IF EGF (#10):EXIT ldloeop 

nl=ni+l 

FOR i=O TO DIMN(b1lk,2 

INPUT#10O,b1 (m1,i) 

END FOR i 

END REFeat ldloop 

draw scene 

ELSE 

CLSa5 

FRINT#S,"WRONG FILE TYPE!" 
PRINT#5S,"FRESS ANY KEY" 

wait no_key:PAUSE 

draw_scene 

END IF 

CLOSE#16 

END DEFine 

DEFine FuNction file namet(en’, ype, xpA? 
(O0Cal k,b#,xpcr 

bs="_ SD" rxpcnk=O:wait_no_key 

REFeat floop 

AT#CHZA,yYpA,HpA 

PRINT#ch24,bS&FILLE(" ",42-LEN(b#) ) 
INF#ch%, 7: PAPER#CHA, 2: 0VER#ch?,O 
AT#chA,yp42,xpAtHpcA:PRINT#CH4," " 

IF LEN(b#) oxped 
OVER#CH2Z, Lr AT#HCHY, yp“, xpAtHpcdh 
PRINT#ch2,b# (xpo“rz+li> 

END IF 

INK#ch%, 4: PAPER#chY,O: OVER#ChHZ,O 
k=CODE (INEFEY$(-1)) 

SELect ON k 

=192:I1F xpco“#?O:xpc“z=xpc%-1 
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S700 
S710 
S720 
5730 
S740 
b#) 
S750 
5760 
S770 
5780 
S790 
S800 
5810 
SB20 
S830 
5840 
S850 
S860 
5870 
S880 
S890 
S700 
5910 
5920 
5930 
5940 
S950 
5960 


=200: IF LEN(b$)-3>xpct:xpco%z=xpc%t+l 
=65T0 90,97 TO 122,48 TO 57,95 

IF LEN(b#)<41 

IF LEN (b#)=xpc% 

bS=bS&CHRS (k) 

ELSE 

b#=bS(1 TO xpc%) &CHR$(k) &bs(xpcz%z+i TO) 
END IF txpc%=xpc“z+l 

END IF 

=194 

IF xpco“30 

IF LEN (b#)=xpc% 

b#=b#(1 TO xpc%-1) 

ELSE 

b#=b$(1 TO xpc%-1)&bsi(xpcrz+1 TO) 
END IF sxpc%=xpc%-1 

END IF 

=10,2068,216:1F b#<>"_S3D":RETurn bt 
END SELect 

END REFPeat floop 

END DEFine 


DEFine FuNction number (ch%,yp%,xp%,1mZ,ng%,la 


LOCal key,n#,n,S54,xpc%,lmc% 

SZ=LEN (Lab#) rns=""rxpcZ“Z=O2: AT#HCHY, yp%,xp% 
lmc%=1m“4+35 

PRINT#ch%, labS:wait_no_key 

REFeat nloop 

AT#CHA, yp%, xprtsZ 

PRINT#ch2%, mne2FILLs(" ",lmc%-LEN (ms) > 
INK#ch%, 7: PAPER#ChA, 2: OVER#CHA,O 
AT#ch%, yp%Z,xpAtupcxzt+szsPRINT#HCHZ,"” " 
IF LEN (nm) >x per 
OVER#ch%, 1: AT#CHZ, yp%,xpZ%+npcrzt+s% 
PRINT#ch2Z,n# (xpc%+1) 

END IF 
INK#ch%,4:PAPER#ch?, 0: OVER#ChHz~,O 
key=CODE (INKEY#(—-1)) 

SELect ON key 

=192: IF xpcZ“>Orxpc%=xpcr%-1 

=2007 IF LEN (n#) >xpc%sxpc%=xpcut+i 
=48T0 57 

IF LEN(n#)<1m% 

IF LEN(n$)=xpc% 

n#=n $2.CHRS (key) 


Thor XVI Version 4 


Version 4 of THOR XVI is a completely redesigned hardware and 


software version of the well-known CST THOR XVI, now a 100% Danish 
production. It is produced by one of the largest Scandinavian manufacturers 
of high quality measuring instruments vouching for the high standard of our 
product. 


The brand new version of ARGOS (6.40/1.07) introduces a number of 


new facilities and a much improved full SCSI hard disc handling. ARGOS 
6.40 now supports the standard IBM AT keyboards, IBM AT extended and 
PS/2 extended keyboards, covering 11 different national languages. 


Now itis possible to use the advanced facilities of any printer, including 


laserprinters, thanks to new user defined extended translation tables. 


ARGOS windiwing facilities are extended to support separate screen 


MODE for each job. 


In addition to PSION Xchange we deliver free of charge 2 discs with 


easy to use menu system and utlities. 


Present THOR XVI users please register with us in order to request a 


ELSE 

n$=n#(1 TO xpch%) &CHR# (key) &ns(xpcox+1 TO) 
END IF sxpc%=xpc%+l 

END IF 

=10,208,216 

IF n@<>"" AND n#<>"-" AND n#<>"." AND ns<ce"-." 
n=nS: AT#HCHA, yp%,xpZ+s% 
PRINT#ch2%,FILLS(" ",lm%+1) 

AT#Ch%, ypZ~,xXp%t+sZ:PRINTH#ChZ, nt RETurn n 
END IF 

=194 

IF xpc%>o 

IF n#(xpchZd="." OR nS(xpco%)="—"21mZ=1m%-1 
IF LEN(n#$)=xpc% 

ng=n$(1TO xpcr%-1) 

ELSE 

n$=n$(1 TO xpc%-1)&n#F(xpc%+1 TO) 
END IF 

xpc%Z=xpc%-1 

END IF 

=46 

IF “-—"INSTR(n#)=1 AND xpc7%=0 

ELSE 

IF "“. "INSTR (n#)=0 

IF LEN(n#)=xpc% 

ns=nsk"," 

ELSE 

n$=nF(1 TO xpcA&"."&ns(xpc%t+i TO) 
END IF 

xpc“=xpc“t+Lelm%Z=1lm%+1 

END IF 

END IF 

=45 

IF ngt=1 

IF xpc%=0 AND "—"INSTR (ns) =0 

IF LEN (n$)=xpcz% 

ns="-" 

ELSE 

ns="—"&n s(x pc%+1 TO) 

END IF 

Mpc“=xpc%tisilmZ=1m%A+1 

END IF 

END IF 

END S€Lect 

END REPeat -nl oop 

END DEFine 


STD J 
London STD codes 
London @t= dialling code is changing to @71- or 
QBI- in Moy 1990, IF you have a computer based 
address List, ve can provide the dota you need 
to change your iists, and even a program to 
chonge text files (eg Psion EXPORT Files). 
Disks contain 5 text lists in database inport 
Formots (quote definited, etc) $ a prograw for 
text (ie export) file conversion, Also provided: 
Tee Pt 2 Files for major databases,’spedshts 
a : Psion Archive .dof file 

ATARI ST: The 5 text (ists & program only 


Huch inproved pains filters. 48-88 db cut 
&3 spike Filters. 398 joule cut G& 4 vay 
Certified XY 24Bac capacitors 


J-voy Ga adaptor)... 
4-voy (139 trailing socked 


QuaLsoft Terminal 


ViewdataVIS2/ASCII OL TERMINAL EMULATOR 
“Een deluxe commnicatieprogranaa van Kuolsoft’ 


QUICK QL REPAIRS SRS Ac eecenarren 


modems for the OL, outodiol (uhere poss) ond 


3.5¢5.25 disk or siceodrive - £10 


ROM/Software upgrade. Technical support is already available in the U.K. 
through P.M. Engineering. 

Please request the new 12 pages THOR XVI brochure and price list 
containing also a description of the new coming products. We are pleased to 
announce 2 new products: 

* ARCTURUS EDITOR (Arced), the indispensable companion for 
programmers (also running on THOR 8 and Sinclair QL), introductory price: 
GBP £45.00. Please request a technical description. 

* C++ COMPILER for the THOR and QL range of products, is under 
development. 

Dansoft offers software service contracts for existing THOR customers 


DANSOFT 


Sole Agent for: 
THOR INTERNATIONAL COMPUTER SYSTEMS I/S 


Raadhusatraede 4 b, 4.sal, DK 1466 Copenhagen K 
Mail to: P.O. Box 59, DK 1002 Copenhagen K, Denmark. 
Phone no: +45 1 930305 (after May 15th: +45 33930305) 

Fax no: +45 1 938292 (after May 15th: +45 33 938292) 
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VAST stock of components & vorking 
Circuit boards to ensure quick and 
reliable repair (Usua(ty same day) 


Ols tested with Thorn EMI test cig 
and ROM scftwore 


(NOY harduare extra if required) 


£25 {6m gntee) 
ILE TRANSFER 


Programs to transfer text AND programs 
error free ONOCEM betueen computers 


Peay lable for IBM PC ond compat ities, 
ATARI ST and Sinctow OL. Connects to 
Psion orgoniter via Psion comms Link 


Gualsoft program (per w/c)... £1.58 
Serial lead (name 2 computers)... 40 
Complete package for 2 computers. £25 


ALU prices include UAT ond postage in the UK 


poy =: Bouverie Place 


logon, tuo-way FILE TRANSFER to ATAR] ST, IBM PC, 
Psion Organizer Cola comms tink), XMODEM, real 
tine clock/timer, buffered fogs to Filedpr inter 
transait files, aditoble command line, wedish” 
Horwegian cptions, EOL translates, editor atc. 
SOLVES ALL PACKAGED MODEM SOFTAMRE PROBLENS 
Unbuffered nodens usable uith Myracle Nedopter 


Software €9,5" or adv) & eanwal {3 


ASTRACOM Modem 


Intelligent buffered nodee vith text status 
wessages. Hayes protocol, paralie! printer 
port ‘con be used as ék serial to porallel 
printer buffer). 24@vac or 9+i2udc, Autodial/ 
ansver and many programmable registers inc! 
printer logging of RX and/or TH data, 
BT opproved. Con be used vith ony compyter, 
V21/23 (3OB/308 and 75/1280) .. 

V21/22/23 (odds 1280/1288 + | 

22 upgrade to existing model... 


45 


* Computer shopping is fun at * 
Shopper Show! 


tp esittitss, aHNEBTTL ark 2 


the Computer 


Sess T UG leewesee ees 1 40 Fer ceed POS TTLSS 


c “ti psveitt 


bipitas* 


iy ir 


‘age he 


ob ~~ 


Yes, for three exciting days in 
November, Computer Shopper will 
turn Alexandra Palace into the 
world’s greatest computer show. 
Everything you need for business 
and leisure computing will be 
available under one roof — with 
experts to help you make the right 
choice! 


The Computer Shopper Show is your if 


chance to meet the dealers with the 
bargains, the manufacturers with the 
latest machines — and to take away 
the things you buy on the day! 


Auctions, demonstrations, 
competitions .. . everything that 
you've ever wanted from an 
exhibition will be happening at the 
Computer Shopper Show - the only 
show for the direct buyer and the 
ultimate computer shopping 
experience! 


And, with Computer Shopper you 
know you'll save money! 


Why not start right here! By ordering 
your tickets in advance you will save 
ff££s! Simply complete and return 
the coupon with your payment or 
telephone the Credit Card Hotline on 
051-357 2961 to place your order. 


Prestel or Microlink 


To place your order by Prestel, Key +89, then 614568383. Microlink users 
* should key 72MAG 001, Please quote your credit card numbers and 


your full name and address when you place your order. 


x Ba C 


SAVE £££S WHEN YOU BUY 
OUR TICKETS IN ADVANCE! 


Yes! Please send me my tickets for the Computer Shopper Show! 
£ 


' 
' 
' 
' 
He Adult tickets at £3 (Save £1!) 

ae Under |6s tickets at £2 (Save £1!) 
0 Family tickets - admits up to 2 adults 
' 


id 2 chil - £9 (S ! 
and 2 children (Save £5!) TOTAL 
|| would like to pay by - 


_] Cheque made payable to Database Exhibitions Ltd 


' 1 Credit card Access Visa Expiry Date 
+ Signed 

Name _ 

| Address 

! 

' 

Postcode 


{Please return your completed order form to - 
\ The Computer Shopper Show Ticket Office, Database Exhibitions 
"Ltd, PO Box 2, Ellesmere Port, South Wirral L65 3EA. A756 } 


TELEPHONE HOTLINE 
Place your orders for tickets by calling 


O51-357 2961 


1 No. || Lid LEP os 


EZ 


ia * Over 250 stands serving every 


Sponsored by Sop pan 
Organised by DATABASE 


BD tegenertites 
| tte 
Attia? 


The 
Computer Shopper 
Show 
Alexandra Palace, London 
10am-6pm_ Friday, November 24 
10am-6pm Saturday, November 25 
10am-4pm Sunday, November 26 


major make and model — the 
ultimate computer hypermarket, 
packed with pre-Christmas 
bargains and offers. 
Incorporates the Amstrad 
Computer Show, the Atari 
Computer Show, the Electron & 
BBC Micro User Show and much, 
much more! 

On-site car parking for hundreds 
of cars — ideal for taking away 
your computer bargains on the 
day! 

Excellent public transport network 
with courtesy coach link to the 
local British Rail station. 

Special show features and 
entertainment to make your 
shopping experience fun! 
Special discount tickets for under 
16s and family groups. 


SOUMAUN nar) 


EXHIBITIONS 


